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

Author: jkeenan
Date: Fri Dec 28 08:51:31 2007
New Revision: 24250

Modified:
   trunk/config/auto/gdbm.pm
   trunk/config/auto/gmp.pm

Log:
Look up value of ->data->get_p5('OSNAME') once only.

Modified: trunk/config/auto/gdbm.pm
==============================================================================
--- trunk/config/auto/gdbm.pm   (original)
+++ trunk/config/auto/gdbm.pm   Fri Dec 28 08:51:31 2007
@@ -67,7 +67,7 @@
     }
 
     cc_gen('config/auto/gdbm/gdbm.in');
-    if ( $conf->data->get_p5('OSNAME') =~ /mswin32/i ) {
+    if ( $osname =~ /mswin32/i ) {
         if ( $cc =~ /^gcc/i ) {
             eval { cc_build( '', '-llibgdbm' ); };
         }

Modified: trunk/config/auto/gmp.pm
==============================================================================
--- trunk/config/auto/gmp.pm    (original)
+++ trunk/config/auto/gmp.pm    Fri Dec 28 08:51:31 2007
@@ -49,7 +49,10 @@
     my $libs      = $conf->data->get('libs');
     my $linkflags = $conf->data->get('linkflags');
     my $ccflags   = $conf->data->get('ccflags');
-    if ( $conf->data->get_p5('OSNAME') =~ /mswin32/i ) {
+
+    my $osname    = $conf->data->get_p5('OSNAME');
+
+    if ( $osname =~ /mswin32/i ) {
         if ( $cc =~ /^gcc/i ) {
             $conf->data->add( ' ', libs => '-lgmp' );
         }
@@ -61,8 +64,6 @@
         $conf->data->add( ' ', libs => '-lgmp' );
     }
 
-    my $osname = $conf->data->get_p5('OSNAME');
-
     # On OS X check the presence of the gmp header in the standard
     # Fink location.
     # RT#43134: Need a more generalized way for finding