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

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Apr 2 02:37:27 UTC 2010


Author: jkeenan
Date: Fri Apr  2 02:37:27 2010
New Revision: 45378
URL: https://trac.parrot.org/parrot/changeset/45378

Log:
Revert to previous version.  Last commit was premature.

Modified:
   trunk/config/auto/arch.pm

Modified: trunk/config/auto/arch.pm
==============================================================================
--- trunk/config/auto/arch.pm	Fri Apr  2 02:36:00 2010	(r45377)
+++ trunk/config/auto/arch.pm	Fri Apr  2 02:37:27 2010	(r45378)
@@ -29,13 +29,6 @@
     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;
 }
 
@@ -67,7 +60,9 @@
     # the above split fails because archname is "darwin-thread-multi-2level".
     if ( $cpuarch =~ /darwin/ ) {
         $osname = 'darwin';
-        $cpuarch = ( $self->{unamep} eq 'powerpc' )
+        my $unamep = `uname -p`;
+        chomp $unamep;
+        $cpuarch = ( $unamep eq 'powerpc' )
             ? 'ppc'
             : 'i386';
     }


More information about the parrot-commits mailing list