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

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Sat May  9 01:31:29 2009
New Revision: 38625
URL: https://trac.parrot.org/parrot/changeset/38625

Log:
[config] Apply change from rrauenza++ in TT #653.  Apparently r38512 had added the fixup after the string had already been parsed.
This should let us parse arch names like "IA64.ARCHREV_0".

Modified:
   trunk/config/auto/arch.pm

Modified: trunk/config/auto/arch.pm
==============================================================================
--- trunk/config/auto/arch.pm	Sat May  9 00:33:24 2009	(r38624)
+++ trunk/config/auto/arch.pm	Sat May  9 01:31:29 2009	(r38625)
@@ -39,10 +39,10 @@
     $verbose and print "\n";
 
     my $archname = $conf->data->get('archname');
+    # This was added to convert IA64.ARCHREV_0 on HP-UX, TT #645, TT #653
+    $archname =~ s|\.|_|g;
     my ( $cpuarch, $osname ) = split( /-/, $archname );
 
-    # This was added to convert IA64.ARCHREV_0 on HP-UX, TT #645
-    $archname =~ s|\.|_|g;
 
     if ($verbose) {
         print "determining operating system and cpu architecture\n";