Ticket #31205: tardiff-reparent.patch

tardiff

@@ -73 +73 @@
                 $flag = "-j";
         }
 
-        my $list = `tar -C $tempdir $flag -xvf $tarball 2>/dev/null`;
+        my $list = `gnutar -C $tempdir $flag -xvf $tarball 2>/dev/null`;
+        
+        my @list = split("\n", $list);
+        foreach my $line (@list) {
+        $line =~ s|^|./|g;
+        $line =~ s|(\./)+|./|g;
+        }
+        $list = join("\n", @list);
+        
         return $list;
 }