Re: PerlRun Subroutine redefine warnings

[Mike OK]

This error occurs when you have two subroutines with the same name.  


Mike O'Krongli
President and CTO
Acorg Inc
519 432-1185
----- Original Message ----- 
From: "Kiran Kumar" <mkira...@gmail.com>
To: <modperl@perl.apache.org>
Sent: Wednesday, August 26, 2009 8:07 PM
Subject: PerlRun Subroutine redefine warnings

Hi,
 I am running mod_perl/2.0.4 on Linux , I keep getting the subroutine
redefined warnings. Perlrun reloads the cgi on each request so why do
I keep getting these warnings ? Is there any other way to avoid this
other than no warnings qw/redefine/ in my scripts. Am I missing
something here ?.

 Here is a minimal script I tested with

#!/usr/bin/perl
use strict;
use warnings;
print "Content-type:text/html \n\n";

test();
test();


sub test {
print " in test \n";
}

 and here is my httpd.conf

        PerlModule ModPerl::PerlRun
     <Location /cgi-bin>
         SetHandler perl-script
         PerlHandler ModPerl::PerlRun
         PerlSetVar ReloadAll Off

         PerlResponseHandler +ModPerl::PerlRun
         PerlOptions +ParseHeaders
         PerlSendHeader On
         Options +ExecCGI
     </Location>
     PerlRequire "/opt/nms/www/cgi-bin/startup.pl"
     # I modify @INC in startup.pl and do not load any modules

Error in the error_log
Subroutine test redefined at /opt/nms/www/cgi-bin/test1.pl line 22.
Subroutine test redefined at /opt/nms/www/cgi-bin/test1.pl line 10.

Thanks,
Kiran