cvs commit: xml-axkit Makefile.PL

[matts]

matts       2003/03/21 05:30:39

  Modified:    .        Makefile.PL
  Log:
  Fix @ARGV bug (John Fessenden)
  
  Revision  Changes    Path
  1.17      +7 -5      xml-axkit/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/xml-axkit/Makefile.PL,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -r1.16 -r1.17
  --- Makefile.PL       18 Feb 2003 22:37:22 -0000      1.16
  +++ Makefile.PL       21 Mar 2003 13:30:38 -0000      1.17
  @@ -46,10 +46,10 @@
   
   $|=1; # flush output
   
  -# while($_ = shift @ARGV) {
  -#     my ($k, $v) = split /=/, $_, 2;
  -#     $config{$k} = $v;
  -# }
  +for (@ARGV) {
  +     my ($k, $v) = split /=/, $_, 2;
  +     $config{$k} = $v;
  + }
   
   $DEBUG = delete $config{DEBUG};
   ######################################################
  @@ -211,6 +211,8 @@
       $config{CCFLAGS} = strip_lfs($config{CCFLAGS});
   }
   
  +# rebuild @ARGV from the stored and modified values.
  +undef(@ARGV);
   foreach my $k (keys %config) {
       push @ARGV, "$k=$config{$k}";
   }