apache-perl-rh.patch

   1 --- mod_perl-1.16/Makefile.PL.rh        Fri Oct  2 18:50:15 1998
   2 +++ mod_perl-1.16/Makefile.PL   Mon Dec 21 11:51:46 1998
   3 @@ -244,6 +244,7 @@
   4  $callback_alias{PERL_CLEANUP} = "PERL_LOG";
   5  %callback_hooks = map { $_,0 } @callback_hooks;
   6  $callback_hooks{PERL_HANDLER} = 1; #PerlHandler always on
   7 +$callback_hooks{PERL_STACKED_HANDLERS} = 0; #Off for DSO
   8  %cant_hook = ();
   9
  10  my @mm_args;
  11 @@ -317,11 +318,11 @@
  12  *          We recommend linking mod_perl static instead         *
  13  EOF
  14      print "*" x 65, $/;
  15 -    my $ans = prompt("Continue?", "n");
  16 -    if($ans =~ /^n$/i) {
  17 -        print "Aborting build process\n";
  18 -        exit;
  19 -    }
  20 +#    my $ans = prompt("Continue?", "n");
  21 +#    if($ans =~ /^n$/i) {
  22 +#        print "Aborting build process\n";
  23 +#        exit;
  24 +#    }
  25  }
  26
  27  if($USE_APXS) {
  28 @@ -356,7 +357,7 @@
  29  }
  30
  31  if($EVERYTHING) {
  32 -    @callback_hooks{qw(PERL_STACKED_HANDLERS PERL_METHOD_HANDLERS)} = (1) x 2;
  33 +    @callback_hooks{qw(PERL_METHOD_HANDLERS)} = (1) x 2;
  34      for(qw(ALL_HOOKS PERL_SSI PERL_SECTIONS PERL_DIRECTIVE_HANDLERS
  35            PERL_LOG_API PERL_URI_API PERL_UTIL_API PERL_TABLE_API PERL_FILE_API)) {
  36         $$_ = 1;