diff options
| author | Junio C Hamano <junkio@cox.net> | 2007-04-29 07:31:14 (GMT) |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2007-04-29 08:34:59 (GMT) |
| commit | d0c32b63394992f8dd083a4f2f380ab190dbb2ca (patch) | |
| tree | f586fd07a15cbf503e00cc1e39962baafca0dd98 /contrib/fast-import/import-tars.perl | |
| parent | 2342c4ee1437277a36c07246ab577a520dab588b (diff) | |
| download | git-d0c32b63394992f8dd083a4f2f380ab190dbb2ca.zip git-d0c32b63394992f8dd083a4f2f380ab190dbb2ca.tar.gz git-d0c32b63394992f8dd083a4f2f380ab190dbb2ca.tar.bz2 | |
Fix import-tars fix.
This heeds advice from our resident Perl expert to make sure
the script is not confused with a string that ends with /\n
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'contrib/fast-import/import-tars.perl')
| -rwxr-xr-x | contrib/fast-import/import-tars.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/fast-import/import-tars.perl b/contrib/fast-import/import-tars.perl index e846477..82a9042 100755 --- a/contrib/fast-import/import-tars.perl +++ b/contrib/fast-import/import-tars.perl @@ -52,7 +52,7 @@ foreach my $tar_file (@ARGV) Z8 Z1 Z100 Z6 Z2 Z32 Z32 Z8 Z8 Z*', $_; last unless $name; - next if $name =~ '/$'; + next if $name =~ m{/\z}; $mode = oct $mode; $size = oct $size; $mtime = oct $mtime; |