cvs commit: modperl-2.0/lib/ModPerl Code.pm

[dougm]

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;