Change 11220 by jhi@alpha on 2001/07/08 17:05:55
(Retracted by #11221)
Change the PERM_RW and PERM_RWX to 0644 and 0755
(add the leading zero).
Affected files ...
... //depot/perl/lib/ExtUtils/MM_Unix.pm#109 edit
Differences ...
==== //depot/perl/lib/ExtUtils/MM_Unix.pm#109 (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<644> because it has turned out in the past that
+MakeMaker chooses C<0644> 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} || "644";
+ shift->{PERM_RW} || "0644";
}
=item perm_rwx (o)
-Returns the attribute C<PERM_RWX> or the string C<755>,
+Returns the attribute C<PERM_RWX> or the string C<0755>,
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} || "755";
+ shift->{PERM_RWX} || "0755";
}
=item pm_to_blib
End of Patch.
