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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Nov 21 18:37:08 2009
New Revision: 42764
URL: https://trac.parrot.org/parrot/changeset/42764

Log:
[distutils] clean up win32 installer

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Sat Nov 21 18:28:55 2009	(r42763)
+++ trunk/runtime/parrot/library/distutils.pir	Sat Nov 21 18:37:08 2009	(r42764)
@@ -123,6 +123,8 @@
     unless $S0 == 'MSWin32' goto L1
     .const 'Sub' _win32_inno_installer = '_win32_inno_installer'
     register_step('win32-inno-installer', _win32_inno_installer)
+    .const 'Sub' _clean_win32_installer = '_clean_win32_installer'
+    register_step_after('clean', _clean_win32_installer)
   L1:
 .end
 
@@ -2488,6 +2490,11 @@
     .return (result)
 .end
 
+.sub '_clean_win32_installer' :anon
+    .param pmc kv :slurpy :named
+    system('del setup-*.exe')
+.end
+
 =head3 Configuration Helpers
 
 =over 4