From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 8 Jul 2001 17:13:38 +0000 (+0000)
Subject: Retract #11220, the problem wasn't the missing leading zero.
X-Git-Tag: accepted/trunk/20130322.191538~30986
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=32504223a3e645a1684c9b78ba7b5b5d89721206;p=platform%2Fupstream%2Fperl.git

Retract #11220, the problem wasn't the missing leading zero.
Here's the problem:
$ ./perl -we 'chmod(oct("755"), ".")'
Non-octal literal mode (493) specified at -e line 1.
        (Did you mean 0493 instead?)

p4raw-id: //depot/perl@11221
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index f3c0f92..da6a032 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -3052,7 +3052,7 @@ sub ppd {
 Returns the attribute C<PERM_RW> or the string C<644>.
 Used as the string that is passed
 to the C<chmod> command to set the permissions for read/writeable files.
-MakeMaker chooses C<0644> because it has turned out in the past that
+MakeMaker chooses C<644> because it has turned out in the past that
 relying on the umask provokes hard-to-track bug reports.
 When the return value is used by the perl function C<chmod>, it is
 interpreted as an octal value.
@@ -3060,12 +3060,12 @@ interpreted as an octal value.
 =cut
 
 sub perm_rw {
-    shift->{PERM_RW} || "0644";
+    shift->{PERM_RW} || "644";
 }
 
 =item perm_rwx (o)
 
-Returns the attribute C<PERM_RWX> or the string C<0755>,
+Returns the attribute C<PERM_RWX> or the string C<755>,
 i.e. the string that is passed
 to the C<chmod> command to set the permissions for executable files.
 See also perl_rw.
@@ -3073,7 +3073,7 @@ See also perl_rw.
 =cut
 
 sub perm_rwx {
-    shift->{PERM_RWX} || "0755";
+    shift->{PERM_RWX} || "755";
 }
 
 =item pm_to_blib