deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

minor oops in previous commit (would fail on perl older than 5.10 or so)

Browse source
This commit is contained in:
Sitaram Chamarty 2011-11-15 10:01:40 +05:30
parent c5f342a835
commit dc79c20709
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/sshkeys-lint
View file

@ -115,7 +115,7 @@ sub user {
} }
sub ak_comment { sub ak_comment {
my $_ = shift; local $_ = shift;
$in_gl_section = 1 if /^# gitolite start/; $in_gl_section = 1 if /^# gitolite start/;
$in_gl_section = 0 if /^# gitolite end/; $in_gl_section = 0 if /^# gitolite end/;
die "gitosis? what's that?\n" if /^#.*gitosis/; die "gitosis? what's that?\n" if /^#.*gitosis/;
@ -123,7 +123,7 @@ sub ak_comment {
} }
sub fprint { sub fprint {
my $_ = shift; local $_ = shift;
my ($fh, $tempfn, $in); my ($fh, $tempfn, $in);
if (/ssh-(dss|rsa) /) { if (/ssh-(dss|rsa) /) {
# an actual key was passed. Since ssh-keygen requires an actual file, # an actual key was passed. Since ssh-keygen requires an actual file,