Browse Source

cvsimport: replace anonymous sub ref with a normal sub

commit() does not need to be an anonymous subreference. Keep it simple.

Signed-off-by: Martin Langhoff <martin@catalyst.net.nz>
Signed-off-by: Junio C Hamano <junkio@cox.net>
maint
Martin Langhoff 19 years ago committed by Junio C Hamano
parent
commit
c4b16f8d77
  1. 6
      git-cvsimport.perl

6
git-cvsimport.perl

@ -563,7 +563,7 @@ my $state = 0; @@ -563,7 +563,7 @@ my $state = 0;

my($patchset,$date,$author_name,$author_email,$branch,$ancestor,$tag,$logmsg);
my(@old,@new,@skipped);
my $commit = sub {
sub commit {
my $pid;
while(@old) {
my @o2;
@ -852,7 +852,7 @@ while(<CVS>) { @@ -852,7 +852,7 @@ while(<CVS>) {
} elsif($state == 9 and /^\s*$/) {
$state = 10;
} elsif(($state == 9 or $state == 10) and /^-+$/) {
&$commit();
commit();
$state = 1;
} elsif($state == 11 and /^-+$/) {
$state = 1;
@ -862,7 +862,7 @@ while(<CVS>) { @@ -862,7 +862,7 @@ while(<CVS>) {
print "* UNKNOWN LINE * $_\n";
}
}
&$commit() if $branch and $state != 11;
commit() if $branch and $state != 11;

unlink($git_index);


Loading…
Cancel
Save