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 do...@apache.org on 2002/05/21 02:33:33 UTC
cvs commit: modperl-2.0/lib/ModPerl Code.pm
dougm 02/05/20 17:33:33
Modified: lib/ModPerl Code.pm
Log:
support $r->push_handlers(PerlHandler => ...)
Revision Changes Path
1.81 +10 -0 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- Code.pm 18 May 2002 02:29:44 -0000 1.80
+++ Code.pm 21 May 2002 00:33:33 -0000 1.81
@@ -260,6 +260,16 @@
my $names = $switch{$key};
print $c_fh " case '$key':\n";
+ #support $r->push_handlers(PerlHandler => ...)
+ if ($key eq 'H') {
+ print $c_fh <<EOF;
+ if (strEQ(name, "Handler")) {
+ *type = $ix{'Response'}->{type};
+ return $ix{'Response'}->{name};
+ }
+EOF
+ }
+
for my $name (@$names) {
my $n = length($name);
print $c_fh <<EOF;