Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 34003 invoked by uid 500); 8 Jan 2002 22:46:10 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 33989 invoked by uid 500); 8 Jan 2002 22:46:09 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 8 Jan 2002 22:46:09 -0000 Message-ID: <20020108224609.33023.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/response/TestModperl print.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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;