[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