[svn:parrot] r37157 - trunk/lib/Parrot/Harness

[rurban at svn.parrot.org]

Author: rurban
Date: Sat Mar  7 10:40:58 2009
New Revision: 37157
URL: https://trac.parrot.org/parrot/changeset/37157

Log:
[t] TT #323 fix sparc smolder report +32/64

Modified:
   trunk/lib/Parrot/Harness/Smoke.pm

Modified: trunk/lib/Parrot/Harness/Smoke.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Smoke.pm	Sat Mar  7 10:39:32 2009	(r37156)
+++ trunk/lib/Parrot/Harness/Smoke.pm	Sat Mar  7 10:40:58 2009	(r37157)
@@ -104,8 +104,8 @@
     # rename sun4 to sparc
     my $arch = $PConfig{cpuarch} eq 'sun4' ? 'sparc' : $PConfig{cpuarch};
     # add the 32/64 bit suffix to the cpuarch
-    if ($PConfig{cpuarch} !~ /\d$/) {
-      $arch = $PConfig{cpuarch} . (8*$PConfig{wordsize});
+    if ($arch !~ /\d$/) {
+      $arch .= 8 * $PConfig{wordsize};
     }
     my $devel = $PConfig{DEVEL};
     # check for local-modifications if -d .svn and query to continue