cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm

[stas]

stas        2003/09/22 15:03:32

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  avoid 'undefined ... in m//' message
  
  Revision  Changes    Path
  1.174     +1 -1      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.173
  retrieving revision 1.174
  diff -u -u -r1.173 -r1.174
  --- TestConfig.pm     16 Sep 2003 19:44:19 -0000      1.173
  +++ TestConfig.pm     22 Sep 2003 22:03:31 -0000      1.174
  @@ -83,7 +83,7 @@
       while (@filter) {
           my $key = shift @filter;
           # optinal - or -- prefix
  -        if ($key =~ /^-?-?(.+)/ && exists $wanted_args->{$1}) {
  +        if (defined $key && $key =~ /^-?-?(.+)/ && exists 
$wanted_args->{$1}) {
               if (@filter) {
                   $keep{$1} = shift @filter;
               }