Change 11221 by jhi@alpha on 2001/07/08 17:13:38
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?)
Affected files ...
... //depot/perl/lib/ExtUtils/MM_Unix.pm#110 edit
Differences ...
==== //depot/perl/lib/ExtUtils/MM_Unix.pm#110 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm.~1~ Sun Jul 8 11:15:05 2001
+++ perl/lib/ExtUtils/MM_Unix.pm Sun Jul 8 11:15:05 2001
@@ -3052,7 +3052,7 @@
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 @@
=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 @@
=cut
sub perm_rwx {
- shift->{PERM_RWX} || "0755";
+ shift->{PERM_RWX} || "755";
}
=item pm_to_blib
End of Patch.
