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

[jhoblitt]

Author: jhoblitt
Date: Fri Nov 11 17:32:34 2005
New Revision: 9912

Modified:
   trunk/config/gen/cpu.pm
   trunk/config/init/hints.pm
Log:
fix config hints & cpu using .pl instead of .pm


Modified: trunk/config/gen/cpu.pm
==============================================================================
--- trunk/config/gen/cpu.pm     (original)
+++ trunk/config/gen/cpu.pm     Fri Nov 11 17:32:34 2005
@@ -29,7 +29,7 @@ sub runstep {
   my $cpu = Configure::Data->get('cpuarch');
   print "\t(cpu = '$cpu') " if $verbose;
   my $f;
-  if (-d "config/gen/cpu/$cpu" && -e ($f = "config/gen/cpu/$cpu/auto.pl")) {
+  if (-d "config/gen/cpu/$cpu" && -e ($f = "config/gen/cpu/$cpu/auto.pm")) {
     require $f;
     &run_cpu($verbose);
   }

Modified: trunk/config/init/hints.pm
==============================================================================
--- trunk/config/init/hints.pm  (original)
+++ trunk/config/init/hints.pm  Fri Nov 11 17:32:34 2005
@@ -23,7 +23,7 @@ $description="Loading platform and local
 @args = qw( cc verbose define );
 
 sub runstep {
-  my $hints = "config/init/hints/" . lc($^O) . ".pl";
+  my $hints = "config/init/hints/" . lc($^O) . ".pm";
   my $hints_used = 0;
   print "[ " if $_[1];
   if(-e $hints) {
@@ -32,7 +32,7 @@ sub runstep {
     die $@ if $@;
     $hints_used++;
   }
-  $hints = "config/init/hints/local.pl";
+  $hints = "config/init/hints/local.pm";
   if(-e $hints) {
     print "$hints " if $_[1];
     do $hints;