cvs commit: parrot Configure.pl

[dan]

cvsuser     01/12/31 11:40:14

  Modified:    .        Configure.pl
  Log:
  Minor Win32 tweaks. Tossed -Wtraditional, too
  
  Revision  Changes    Path
  1.53      +3 -3      parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -w -r1.52 -r1.53
  --- Configure.pl      31 Dec 2001 19:31:26 -0000      1.52
  +++ Configure.pl      31 Dec 2001 19:40:14 -0000      1.53
  @@ -2,7 +2,7 @@
   #
   # Configure.pl
   #
  -# $Id: Configure.pl,v 1.52 2001/12/31 19:31:26 dan Exp $
  +# $Id: Configure.pl,v 1.53 2001/12/31 19:40:14 dan Exp $
   #
   # Author: Brent Dax
   #
  @@ -42,7 +42,7 @@
   
   if($opt_version) {
       print "Parrot Version $parrot_version Configure\n";
  -    print '$Id: Configure.pl,v 1.52 2001/12/31 19:31:26 dan Exp $' . "\n";
  +    print '$Id: Configure.pl,v 1.53 2001/12/31 19:40:14 dan Exp $' . "\n";
       exit;
   }
   
  @@ -559,7 +559,7 @@
       close(IN) or die "Can't close $source_filename.in: $!";
   
       $text =~ s/\$\{(\w+)\}/$c{$1}/g;
  -
  +    $text =~ s/\cM//g;                 # Potental drek on Win32
       open(OUT, ">$path/$target_filename") or die "Can't open $path/$target_filename: 
$!";
       print OUT $text;
       close(OUT) or die "Can't close $target_filename: $!";