[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