[svn:parrot] r45823 - trunk/runtime/parrot/library/TAP
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Tue Apr 20 10:54:59 UTC 2010
Author: fperrad
Date: Tue Apr 20 10:54:58 2010
New Revision: 45823
URL: https://trac.parrot.org/parrot/changeset/45823
Log:
[TAP] workaround for tar on Windows
Modified:
trunk/runtime/parrot/library/TAP/Harness.pir
Modified: trunk/runtime/parrot/library/TAP/Harness.pir
==============================================================================
--- trunk/runtime/parrot/library/TAP/Harness.pir Tue Apr 20 10:16:25 2010 (r45822)
+++ trunk/runtime/parrot/library/TAP/Harness.pir Tue Apr 20 10:54:58 2010 (r45823)
@@ -277,11 +277,16 @@
cp($S1, $S2)
goto L3
L2:
+ $S0 = current_dir
+ $I0 = index $S0, ':'
+ unless $I0 == 1 goto L4
+ $S0 = substr $S0, 2 # remove Windows drive
+ L4:
+ cmd = "tar -cf " . $S0
+ cmd .= "/"
$I0 = length archive
$I0 -= 3
$S0 = substr archive, 0, $I0
- cmd = "tar -cf " . current_dir
- cmd .= "/"
cmd .= $S0
cmd .= " *"
system(cmd)
More information about the parrot-commits
mailing list