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/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
Date Tue, 14 May 2002 15:45:06 GMT
stas        02/05/14 08:45:06

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  - use the missing Apache::RequestRec
  - no need for $r->seqno
  
  Revision  Changes    Path
  1.7       +4 -3      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- RegistryCooker.pm	16 Apr 2002 17:14:16 -0000	1.6
  +++ RegistryCooker.pm	14 May 2002 15:45:06 -0000	1.7
  @@ -17,7 +17,8 @@
   
   use Apache::compat ();
   
  -use Apache::Response;
  +use Apache::Response ();
  +use Apache::RequestRec ();
   use Apache::Log;
   use Apache::Const -compile => qw(:common &OPT_EXECCGI);
   use File::Spec::Functions ();
  @@ -169,9 +170,9 @@
       my $rc = Apache::OK;
       my $cv = \&{"$package\::handler"};
   
  -    { # run the code if $r->seqno, preserve warnings setup when it's done
  +    { # run the code and preserve warnings setup when it's done
           no warnings;
  -        eval { $rc = &{$cv}($r, @_) } if $r->seqno;
  +        eval { $rc = &{$cv}($r, @_) };
           $o->[STATUS] = $rc;
           ModPerl::Global::special_list_call(END => $package);
       }
  
  
  

Mime
View raw message