[svn:parrot] r46789 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed May 19 13:00:13 2010
New Revision: 46789
URL: https://trac.parrot.org/parrot/changeset/46789

Log:
[distutils] more verbose with archive

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Wed May 19 12:25:52 2010	(r46788)
+++ trunk/runtime/parrot/library/distutils.pir	Wed May 19 13:00:13 2010	(r46789)
@@ -2110,6 +2110,8 @@
     harness.'extra_props'($P0)
   L7:
     aggregate = harness.'runtests'(files)
+    print "creat "
+    say archive
 
     smolder_post(archive, kv :flat :named)
 .end
@@ -2990,6 +2992,8 @@
     $P0.'open'(archive_file, 'wb')
     archive.'write'($P0)
     $P0.'close'()
+    print "creat "
+    say archive_file
   L1:
 .end
 
@@ -3045,6 +3049,8 @@
     goto L2
   L3:
     archive.'writeToFileNamed'(archive_file)
+    print "creat "
+    say archive_file
   L1:
 .end