I am getting these error messages when I restart apache on a new mod perl
install.

Starting httpd: Subroutine export redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 35.
Subroutine name redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 46.
Subroutine Apache::Constants::__AUTOLOAD redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 14.
Subroutine Apache::Constants::SERVER_VERSION redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 14.
Subroutine Apache::Constants::SERVER_BUILT redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 14.
Subroutine Apache::Constants::DECLINE_CMD redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 14.
Subroutine Apache::Constants::DIR_MAGIC_TYPE redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 14.
Constant subroutine OK redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/mod_perl.pm line 65535.
Constant subroutine DECLINED redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Constant subroutine DONE redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Constant subroutine NOT_FOUND redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Constant subroutine FORBIDDEN redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Constant subroutine AUTH_REQUIRED redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Constant subroutine SERVER_ERROR redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 65535.
Subroutine AUTOLOAD redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 30.
Constant subroutine AUTH_REQUIRED redefined at /usr/lib/perl5/5.6.0/Carp.pm
line 4
Constant subroutine DONE redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Constant subroutine SERVER_ERROR redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Constant subroutine NOT_FOUND redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Constant subroutine FORBIDDEN redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Constant subroutine OK redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Constant subroutine DECLINED redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Constants.pm line 4
Subroutine handler redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Registry.pm line 27.
Subroutine compile redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Registry.pm line 174.
Subroutine parse_cmdline redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Registry.pm line 190.
Subroutine DESTROY redefined at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Apache/Registry.pm line 214.
[  OK  ]

Here is my perl conf file.
Alias /perl/ /home/www/dvdsex4u/perl/
PerlModule Apache::Registry
<Location /perl>
 SetHandler perl-script
 PerlHandler Apache::Registry
 Options ExecCGI
 allow from all
 PerlSendHeader On
</Location>

#This bit of code, causes apache to exit gracefully on any request for
Microshit files: nimbda fighter
PerlModule Apache::Constants
<LocationMatch "\.(ida|exe|dll|asp)$">
SetHandler perl-script
PerlInitHandler Apache::Constants::DONE
</LocationMatch>

PerlRequire  /etc/httpd/conf/perl_conf/startup.pl
PerlFreshRestart On
PerlWarn On


I have this same setup on another server and it starts and works fine.
The server appears to have started.
Should I just disreguard these messages.

thanks
John michael


----- Original Message -----
From: "Peter Pilsl" <[EMAIL PROTECTED]>
To: "Perrin Harkins" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, November 14, 2001 3:03 AM
Subject: Re: cgi-object not cacheable


> On Tue, Nov 13, 2001 at 09:18:04PM -0500, Perrin Harkins wrote:
> > > One run of my script takes about 2 seconds. This includes a lot of
> > > database-queries, calculations and so on.  about 0.3 seconds are used
> > > just for one command: $query=new CGI;
> >
> > That's really awfully slow.  Are you positive it's running under
mod_perl?
> > Have you considered using Apache::Request instead of CGI.pm?
> >
>
> its definitely running under mod_perl. But imho the time it takes to
> create a new cgi-object should not depend too much wheter its running
> under mod_perl or not, cause the CGI-module is loaded before. (In fact
> I load in httpd.conf using PerlModule-Directive)
>
> > > This is not a problem of my persistent variables, cause this works
> > > with many other objects like db-handles (cant use Apache::DBI cause
> > > this keeps to many handles opened, so I need to cache and pool on my
> > > own), filehandles etc.
> >
> > Whoa, you can't use Apache::DBI but you can cache database handles
yourself?
> > That doesn't make any sense.  What are you doing in your caching that's
> > different from what Apache::DBI does?
>
> This makes very much sense. Apache::DBI does not limit the number of
> persistent connections. It just keeps all the connections open per
> apache-process. This will sum up to about 20 open
> database-connections, each having one postgres-client running 'idle in
> transaction' - and my old small serversystem is going weak.  So I cant
> cache all connections, but only a limited number and so I cache on my
> own :) Beside: it is done with a few lines of code, so it wasnt much
> work either:
>
>  if (exists($ptr->{global}->{dbhandles}->{_some_id_string}))
>  {
>     $dbh=$ptr->{global}->{dbhandles}->{_some_id_string};
>     $dbh or err($ptr,19); # there must have been something wrong
internally
>     if (not $dbh->ping) {$connect=1;$r='reconnect'}  # we just reconnect
..
>     $dbh and $dbh->rollback;   # this issue a new begin-transaction and
avoid several problem with 'current_timestamp' that dedlivers the value
>                                     # of the time at the beginning of the
transaction, even if this is hours ago. see TROUBLEREPORT1
>     $r= "stored" if $r eq '-';
>   } else {$connect=1;}
>   if ($connect)
>   {
>     $dbh=DBI->connect(connectinformation)
>     ....
>   }
>
> and on exit I just disconnect all handles but keeping a specified
> amount.  I would prefer to handle this in a special pooling-module
> like Apache::DBI is, but where one can specify a maximum number of
> open connections and a timeout per connection (connection will be
> terminated after it was not used a specified amount of time).  As soon
> as I get IPC::Sharable to work I'll consider writing such a thingy.
>
> best,
> peter
>
>
> --
> mag. peter pilsl
>
> phone: +43 676 3574035
> fax  : +43 676 3546512
> email: [EMAIL PROTECTED]
> sms  : [EMAIL PROTECTED]
>
> pgp-key available

Reply via email to