Merge branch 'maint'
[gitweb.git] / contrib / fast-import / import-tars.perl
index 82a90429c8e1a1095851fc706bd456466da40008..d2363a415d5a1a7a77fede7f5573342f9a20e755 100755 (executable)
                }
                print FI "\n";
 
-               my $path = "$prefix$name";
+               my $path;
+               if ($prefix) {
+                       $path = "$prefix/$name";
+               } else {
+                       $path = "$name";
+               }
                $files{$path} = [$next_mark++, $mode];
 
                $commit_time = $mtime if $mtime > $commit_time;