[svn:parrot] r45376 - trunk/config/auto

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Apr 2 02:35:23 UTC 2010


Author: jkeenan
Date: Fri Apr  2 02:35:23 2010
New Revision: 45376
URL: https://trac.parrot.org/parrot/changeset/45376

Log:
Correct incorrect commenting out.

Modified:
   trunk/config/auto/arch.pm

Modified: trunk/config/auto/arch.pm
==============================================================================
--- trunk/config/auto/arch.pm	Fri Apr  2 02:16:16 2010	(r45375)
+++ trunk/config/auto/arch.pm	Fri Apr  2 02:35:23 2010	(r45376)
@@ -29,6 +29,13 @@
     my %data;
     $data{description} = q{Determine CPU architecture and OS};
     $data{result}      = q{};
+    my $unamep;
+    eval {
+       chomp($unamep = `uname -p`);
+    };
+    $data{unamep} = ( ! $@ and $unamep )
+        ? $unamep
+        : undef;
     return \%data;
 }
 
@@ -60,9 +67,7 @@
     # the above split fails because archname is "darwin-thread-multi-2level".
     if ( $cpuarch =~ /darwin/ ) {
         $osname = 'darwin';
-        my $unamep = `uname -p`;
-        chomp $unamep;
-        $cpuarch = ( $unamep eq 'powerpc' )
+        $cpuarch = ( $self->{unamep} eq 'powerpc' )
             ? 'ppc'
             : 'i386';
     }


More information about the parrot-commits mailing list