[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