cvs commit: parrot Configure.pl

[dan]

cvsuser     02/01/23 12:45:29

  Modified:    .        Configure.pl
  Log:
  Fix a warning when there's no - in an architecture
  
  Revision  Changes    Path
  1.83      +5 -2      parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.82
  retrieving revision 1.83
  diff -u -w -r1.82 -r1.83
  --- Configure.pl      20 Jan 2002 20:52:20 -0000      1.82
  +++ Configure.pl      23 Jan 2002 20:45:29 -0000      1.83
  @@ -2,7 +2,7 @@
   #
   # Configure.pl
   #
  -# $Id: Configure.pl,v 1.82 2002/01/20 20:52:20 grunblatt Exp $
  +# $Id: Configure.pl,v 1.83 2002/01/23 20:45:29 dan Exp $
   #
   # Author: Brent Dax
   #
  @@ -75,7 +75,7 @@
   
   if($opt_version) {
       print "Parrot Version $parrot_version Configure\n";
  -    print '$Id: Configure.pl,v 1.82 2002/01/20 20:52:20 grunblatt Exp $' . "\n";
  +    print '$Id: Configure.pl,v 1.83 2002/01/23 20:45:29 dan Exp $' . "\n";
       exit;
   }
   
  @@ -145,6 +145,9 @@
   
   $archname                 =  $Config{archname};
   ($cpuarch, $osname)       =  split('-', $archname);
  +if (!defined $osname) {
  +    ($osname, $cpuarch) = ($cpuarch, "");
  +}
   
   $jitarchname              =  "$cpuarch-$osname";
   $jitarchname           =~ s/i[456]86/i386/i;