cvs commit: modperl-2.0/t/response/TestModperl print.pm

[dougm]

dougm       02/01/08 14:46:09

  Modified:    t/conf   modperl_extra.pl
               t/response/TestModperl print.pm
  Log:
  add some END blocks for testing
  
  Revision  Changes    Path
  1.12      +4 -0      modperl-2.0/t/conf/modperl_extra.pl
  
  Index: modperl_extra.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- modperl_extra.pl  22 Dec 2001 18:59:52 -0000      1.11
  +++ modperl_extra.pl  8 Jan 2002 22:46:08 -0000       1.12
  @@ -53,4 +53,8 @@
       return $buf;
   }
   
  +END {
  +    warn "END in modperl_extra.pl, pid=$$\n";
  +}
  +
   1;
  
  
  
  1.4       +5 -0      modperl-2.0/t/response/TestModperl/print.pm
  
  Index: print.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/print.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- print.pm  1 Jan 2002 10:36:05 -0000       1.3
  +++ print.pm  8 Jan 2002 22:46:09 -0000       1.4
  @@ -21,4 +21,9 @@
       Apache::OK;
   }
   
  +END {
  +    my $package = __PACKAGE__;
  +    warn "END in $package, pid=$$\n";
  +}
  +
   1;