httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Mon, 22 Sep 2003 22:03:32 GMT
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;
               }
  
  
  

Mime
View raw message