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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Thu Dec  3 18:25:30 2009
New Revision: 42882
URL: https://trac.parrot.org/parrot/changeset/42882

Log:
[distutils] add option verbose to setenv

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Thu Dec  3 16:31:45 2009	(r42881)
+++ trunk/runtime/parrot/library/distutils.pir	Thu Dec  3 18:25:30 2009	(r42882)
@@ -3672,6 +3672,15 @@
 .sub 'setenv'
     .param string name
     .param string value
+    .param int verbose          :named('verbose') :optional
+    .param int has_verbose      :opt_flag
+    unless has_verbose goto L1
+    unless verbose goto L1
+    print "setenv "
+    print name
+    print " = "
+    say value
+  L1:
     new $P0, 'Env'
     $P0[name] = value
 .end