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

fperrad at svn.parrot.org fperrad at svn.parrot.org
Sat Apr 24 13:13:58 UTC 2010


Author: fperrad
Date: Sat Apr 24 13:13:58 2010
New Revision: 45984
URL: https://trac.parrot.org/parrot/changeset/45984

Log:
[distutils) refactor chmod with OS.chmod

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Sat Apr 24 13:03:53 2010	(r45983)
+++ trunk/runtime/parrot/library/distutils.pir	Sat Apr 24 13:13:58 2010	(r45984)
@@ -100,10 +100,6 @@
 
 core module Pod-Html
 
-=item chmod (in step 'install')
-
-core module ExtUtils::Command, see TT #1322
-
 =back
 
 =head2 PARROT DEPENDENCIES

Modified: trunk/runtime/parrot/library/osutils.pir
==============================================================================
--- trunk/runtime/parrot/library/osutils.pir	Sat Apr 24 13:03:53 2010	(r45983)
+++ trunk/runtime/parrot/library/osutils.pir	Sat Apr 24 13:13:58 2010	(r45984)
@@ -260,19 +260,8 @@
     .param string filename
     .param int mode
     .param int verbose          :named('verbose') :optional
-    # see TT #1322
-    $P0 = get_config()
-    .local string cmd
-    cmd = $P0['perl']
-    cmd .= " -MExtUtils::Command -e ExtUtils::Command::chmod "
-    $P1 = new 'FixedIntegerArray'
-    set $P1, 1
-    $P1[0] = mode
-    $S0 = sprintf '0%o', $P1
-    cmd .= $S0
-    cmd .= " "
-    cmd .= filename
-    system(cmd, verbose :named('verbose'))
+    $P0 = new 'OS'
+    $P0.'chmod'(filename, mode)
 .end
 
 =item unlink


More information about the parrot-commits mailing list