diff --git a/commit-patch b/commit-patch index 09dba3f..f23c2d3 100755 --- a/commit-patch +++ b/commit-patch @@ -17,11 +17,6 @@ my $patch = shift; die "bad patch file: $!" if -z $patch; die "Invalid message" if defined $message && $message eq ""; -my ($lsdiff_out, $err); -run ["lsdiff", "--strip", "1", $patch], '|', ["sort"], '|', ["uniq"], \$lsdiff_out, \$err or die "lsdiff|sort|unique : $! ($err)"; -my @files = split(/\n/, $lsdiff_out); -die "No files in patch" unless scalar @files; - my %clean; my $repo="."; my %vc; @@ -67,6 +62,11 @@ while (!$vc{name}) { } } +my ($lsdiff_out, $err); +run ["lsdiff", "--strip", "1", $patch], '|', ["sort"], '|', ["uniq"], \$lsdiff_out, \$err or die "lsdiff|sort|unique : $! ($err)"; +my @files = split(/\n/, $lsdiff_out); +die "No files in patch" unless scalar @files; + #print "Found $vc{name} in $repo\n"; #printf("files: %s\n", join(",", @files));