[svn:parrot] r45811 - trunk/runtime/parrot/library/TAP

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Apr 19 17:02:35 2010
New Revision: 45811
URL: https://trac.parrot.org/parrot/changeset/45811

Log:
[TAP] put extra files in archive

Modified:
   trunk/runtime/parrot/library/TAP/Harness.pir

Modified: trunk/runtime/parrot/library/TAP/Harness.pir
==============================================================================
--- trunk/runtime/parrot/library/TAP/Harness.pir	Mon Apr 19 16:37:37 2010	(r45810)
+++ trunk/runtime/parrot/library/TAP/Harness.pir	Mon Apr 19 17:02:35 2010	(r45811)
@@ -266,6 +266,17 @@
     chdir(dir)
     $S0 = self.'_mk_meta'(aggregate)
     spew('meta.yml', $S0)
+    $P0 = getattribute self, 'archive_extra_files'
+    if null $P0 goto L2
+    $P1 = iter $P0
+  L3:
+    unless $P1 goto L2
+    $S2 = shift $P1
+    $S1 = current_dir . '/'
+    $S1 .= $S2
+    cp($S1, $S2)
+    goto L3
+  L2:
     $I0 = length archive
     $I0 -= 3
     $S0 = substr archive, 0, $I0