[svn:parrot] r10980 - in trunk/config: gen init

[bernhard]

Author: bernhard
Date: Sun Jan  8 03:23:09 2006
New Revision: 10980

Modified:
   trunk/config/gen/makefiles.pm
   trunk/config/init/defaults.pm
Log:
Handle versions of ExtUtils::Command, that do not
export 'chmod' by default.

Change the docs/ops permission from 666 to 644.

Thanks to Joshua Isom.


Modified: trunk/config/gen/makefiles.pm
==============================================================================
--- trunk/config/gen/makefiles.pm       (original)
+++ trunk/config/gen/makefiles.pm       Sun Jan  8 03:23:09 2006
@@ -237,10 +237,10 @@ sub makefiles
             print MAKEFILE "ops$slash$pod: 
..${slash}src${slash}ops${slash}$ops\n";
             if ($new_perldoc == 1) {
                 print MAKEFILE "\tperldoc -ud ops${slash}$pod 
..${slash}src${slash}ops${slash}$ops\n";
-                print MAKEFILE "\t\$(CHMOD) 0666, ops${slash}$pod\n\n";
+                print MAKEFILE "\t\$(CHMOD) 0644 ops${slash}$pod\n\n";
             } else {
                 print MAKEFILE "\tperldoc -u ..${slash}ops${slash}$ops > 
ops${slash}$pod\n";
-                print MAKEFILE "\t\$(CHMOD) 0666, 
..${slash}ops${slash}$pod\n\n";
+                print MAKEFILE "\t\$(CHMOD) 0644 
..${slash}ops${slash}$pod\n\n";
             }
         }
 

Modified: trunk/config/init/defaults.pm
==============================================================================
--- trunk/config/init/defaults.pm       (original)
+++ trunk/config/init/defaults.pm       Sun Jan  8 03:23:09 2006
@@ -142,7 +142,7 @@ sub runstep
         rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
         mkdir     => '$(PERL) -MExtUtils::Command -e mkpath',
         touch     => '$(PERL) -MExtUtils::Command -e touch',
-        chmod     => '$(PERL) -MExtUtils::Command-chmod -e chmod',
+        chmod     => '$(PERL) -MExtUtils::Command -e ExtUtils::Command::chmod',
         ar        => $Config{ar},
         ar_flags  => 'cr',