cvs commit: modperl-2.0/lib/Apache Status.pm

[stas]

stas        2003/11/15 11:33:40

  Modified:    lib/Apache Status.pm
  Log:
  CGI.pm 2.93+ now accepts $r as an argument to new()
  
  Revision  Changes    Path
  1.10      +6 -1      modperl-2.0/lib/Apache/Status.pm
  
  Index: Status.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -u -r1.9 -r1.10
  --- Status.pm 15 Nov 2003 19:30:47 -0000      1.9
  +++ Status.pm 15 Nov 2003 19:33:40 -0000      1.10
  @@ -26,7 +26,12 @@
       $newQ ||= sub { Apache::Request->new(@_) };
   }
   elsif (eval {require CGI}) {
  -    $newQ ||= sub { CGI->new; };
  +    if ($CGI::VERSION >= 2.93) {
  +        $newQ ||= sub { CGI->new(@_) };
  +    }
  +    else {
  +        $newQ ||= sub { CGI->new };
  +    }
   }
   else {
       die "Need CGI.pm or Apache::Request to operate";