cvs commit: parrot Configure.pl

[gregor]

cvsuser     01/12/31 09:15:00

  Modified:    .        Configure.pl
  Log:
  Get the ccname from either ccname or just cc config var.
  
  Revision  Changes    Path
  1.51      +11 -3     parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.50
  retrieving revision 1.51
  diff -u -w -r1.50 -r1.51
  --- Configure.pl      31 Dec 2001 15:32:51 -0000      1.50
  +++ Configure.pl      31 Dec 2001 17:15:00 -0000      1.51
  @@ -2,7 +2,7 @@
   #
   # Configure.pl
   #
  -# $Id: Configure.pl,v 1.50 2001/12/31 15:32:51 dan Exp $
  +# $Id: Configure.pl,v 1.51 2001/12/31 17:15:00 gregor Exp $
   #
   # Author: Brent Dax
   #
  @@ -42,7 +42,7 @@
   
   if($opt_version) {
       print "Parrot Version $parrot_version Configure\n";
  -    print '$Id: Configure.pl,v 1.50 2001/12/31 15:32:51 dan Exp $' . "\n";
  +    print '$Id: Configure.pl,v 1.51 2001/12/31 17:15:00 gregor Exp $' . "\n";
       exit;
   }
   
  @@ -178,9 +178,17 @@
       $c{PQ} = "'";
   }
   
  +#
   # If using gcc, crank up its warnings as much as possible and make it behave
   # ansi-ish.
  -if ($Config{ccname} eq "gcc") {
  +#
  +# Some Perl versions put this in Config variable 'ccname', others in 'cc'. We
  +# prefer the former, but accept the latter.
  +#
  +
  +my $ccname = $Config{ccname} || $Config{cc};
  +
  +if ($ccname eq "gcc") {
      $c{cc_warn} = " -Wall -ansi -pedantic -Wtraditional -Wstrict-prototypes 
-Wmissing-prototypes -Winline -Wredundant-decls -Wall -Wshadow -Wpointer-arith 
-Wcast-qual -Wcast-align -Wwrite-strings -Wconversion -Waggregate-return -Winline";
   }