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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Dec 21 19:50:37 2009
New Revision: 43187
URL: https://trac.parrot.org/parrot/changeset/43187

Log:
[distutils] when install, chmod only on cygwin or hpux platform

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Mon Dec 21 19:42:56 2009	(r43186)
+++ trunk/runtime/parrot/library/distutils.pir	Mon Dec 21 19:50:37 2009	(r43187)
@@ -29,6 +29,7 @@
 
 Distutils could work with Plumage (L<https://trac.parrot.org/parrot/wiki/ModuleEcosystem>).
 Plumage handles setup.pir commands.
+
 Distutils could generate a skeleton of Pluamge metadata.
 
 =head3 Commands / Steps / Targets
@@ -2949,7 +2950,7 @@
     spew($S0, $S1, 1 :named('verbose'))
     .local string cmd
     cmd = "rpmbuild --nobuild " . $S0
-    system(cmd, 1 :named('verbose'))
+    system(cmd, 1 :named('verbose'), 1 :named('ignore_error'))
   L2:
 .end
 
@@ -3985,6 +3986,14 @@
     cp(src, dst, verbose :named('verbose'))
     unless has_exe goto L3
     unless exe goto L3
+    $P0 = getinterp
+    $P0 = $P0[.IGLOBALS_CONFIG_HASH]
+    $I0 = $P0['cygwin']
+    if $I0 goto L4
+    $I0 = $P0['hpux']
+    if $I0 goto L4
+    goto L3
+  L4:
     chmod(dst, 0o755, verbose :named('verbose'))
   L3:
 .end