You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/05/14 17:45:06 UTC
cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
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);
}