[svn:parrot] r46131 - trunk/runtime/parrot/library/Archive

fperrad at svn.parrot.org fperrad at svn.parrot.org
Thu Apr 29 12:35:34 UTC 2010


Author: fperrad
Date: Thu Apr 29 12:35:34 2010
New Revision: 46131
URL: https://trac.parrot.org/parrot/changeset/46131

Log:
[TAR] fix prefix

Modified:
   trunk/runtime/parrot/library/Archive/TAR.pir

Modified: trunk/runtime/parrot/library/Archive/TAR.pir
==============================================================================
--- trunk/runtime/parrot/library/Archive/TAR.pir	Thu Apr 29 12:23:55 2010	(r46130)
+++ trunk/runtime/parrot/library/Archive/TAR.pir	Thu Apr 29 12:35:34 2010	(r46131)
@@ -145,6 +145,9 @@
 .sub '_prefix_and_file' :anon
     .param string path
     $S0 = dirname(path)
+    unless $S0 == '.' goto L1
+    $S0 = ''
+  L1:
     $S1 = basename(path)
     .return ($S0, $S1)
 .end


More information about the parrot-commits mailing list