From modperl-cvs-return-4012-apmail-perl-modperl-cvs-archive=perl.apache.org@perl.apache.org Fri Dec 19 19:29:24 2003 Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 51571 invoked from network); 19 Dec 2003 19:29:24 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 19 Dec 2003 19:29:24 -0000 Received: (qmail 89585 invoked by uid 500); 19 Dec 2003 19:29:14 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 89567 invoked by uid 500); 19 Dec 2003 19:29:14 -0000 Mailing-List: contact modperl-cvs-help@perl.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@perl.apache.org Received: (qmail 89554 invoked by uid 500); 19 Dec 2003 19:29:14 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 19 Dec 2003 19:29:23 -0000 Message-ID: <20031219192923.51567.qmail@minotaur.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin require.pl X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N stas 2003/12/19 11:29:23 Modified: ModPerl-Registry/t/cgi-bin require.pl Log: make sure that the local .pl file is loaded (it's not longer removed from %INC by registrycooker, only perlrun does that on behalf of the users) Revision Changes Path 1.5 +1 -0 modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl Index: require.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -u -r1.4 -r1.5 --- require.pl 6 Jan 2003 10:39:44 -0000 1.4 +++ require.pl 19 Dec 2003 19:29:23 -0000 1.5 @@ -9,6 +9,7 @@ print "Content-type: text/plain\n\n"; # XXX: meanwhile we don't chdir to the script's dir +delete $INC{$require}; require $require; print defined $test_require && $test_require;