[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