Andrew's git / gitweb.git / blobdiff
?
Properly handle '0' filenames in import-tars
[gitweb.git] / contrib / fast-import / import-tars.perl
diff --git a/contrib/fast-import/import-tars.perl b/contrib/fast-import/import-tars.perl
index e46492048c75f4a3cda11c3bf7ca03889640e7b7..f0b9a43abd469caa75d513b1f1a729714d1d899c 100755 (executable)
--- a/contrib/fast-import/import-tars.perl
+++ b/contrib/fast-import/import-tars.perl
@@ -51,7 +51,7 @@
                        $prefix) = unpack 'Z100 Z8 Z8 Z8 Z12 Z12
                        Z8 Z1 Z100 Z6
                        Z2 Z32 Z32 Z8 Z8 Z*', $_;
-               last unless $name;
+               last unless length($name);
                if ($name eq '././@LongLink') {
                        # GNU tar extension
                        if (read(I, $_, 512) != 512) {