cvs commit: parrot Configure.pl

[dan]

cvsuser     01/12/30 22:48:49

  Modified:    .        Configure.pl
  Log:
  Minor Windows tweak
  
  Revision  Changes    Path
  1.49      +3 -3      parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.48
  retrieving revision 1.49
  diff -u -w -r1.48 -r1.49
  --- Configure.pl      31 Dec 2001 05:09:25 -0000      1.48
  +++ Configure.pl      31 Dec 2001 06:48:49 -0000      1.49
  @@ -2,7 +2,7 @@
   #
   # Configure.pl
   #
  -# $Id: Configure.pl,v 1.48 2001/12/31 05:09:25 grunblatt Exp $
  +# $Id: Configure.pl,v 1.49 2001/12/31 06:48:49 dan Exp $
   #
   # Author: Brent Dax
   #
  @@ -43,7 +43,7 @@
   
   if($opt_version) {
       print "Parrot Version $parrot_version Configure\n";
  -    print '$Id: Configure.pl,v 1.48 2001/12/31 05:09:25 grunblatt Exp $' . "\n";
  +    print '$Id: Configure.pl,v 1.49 2001/12/31 06:48:49 dan Exp $' . "\n";
       exit;
   }
   
  @@ -174,7 +174,7 @@
   );
   
   # What's the platform shell quote character?
  -if ($^O eq 'VMS' || $^O eq 'MSWin') {
  +if ($^O eq 'VMS' || $^O =~ /MSWin/i) {
       $c{PQ} = '"';
   } else {
       $c{PQ} = "'";