perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache Status.pm
Date Sat, 15 Nov 2003 19:33:40 GMT
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";
  
  
  

Mime
View raw message