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

[dougm]

dougm       01/12/10 19:48:13

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  fix scheme_fixup to avoid use of uninitialized value
  
  Revision  Changes    Path
  1.60      +1 -1      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
  
  Index: TestRequest.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
  retrieving revision 1.59
  retrieving revision 1.60
  diff -u -r1.59 -r1.60
  --- TestRequest.pm    2001/12/11 03:44:26     1.59
  +++ TestRequest.pm    2001/12/11 03:48:13     1.60
  @@ -591,7 +591,7 @@
   sub scheme_fixup {
       my $scheme = shift;
       my $fixup = $scheme_fixups{$scheme};
  -    return unless defined &$fixup;
  +    return unless $fixup;
       $fixup->();
   }