Ed Ruben wrote:
Stas,
Thank you for your quick reply, I appreciate it.
I put your test script, require.pl, in /var/www/cgi-bin and DID get the error message:
[Wed Aug 13 10:19:13 2003] [error] [client 10.0.3.131] Pseudo-hashes are
deprecated at
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/ModPerl/RegistryPre
fork.pm line 23.!
hmm, could it be something that RH put into the perl core? I need to figure out how to reproduce it. Your perl -V included in the original report doesn't show anything special. I'll see if I can get it reproduced.
As suggested by Geoff, this is probably some patch that RH backported from 5.8.1-dev to 5.8.0 and it's no longer in 5.8.1, which explains why I can't reproduce it. However try this version and let me know if that makes the warning disappear:
package ModPerl::RegistryPrefork;
use strict; use warnings FATAL => 'all';
our $VERSION = '0.01';
use File::Basename();
use base qw(ModPerl::Registry);
sub handler : method {
my $class = (@_ >= 2) ? shift : __PACKAGE__;
my $r = shift;
return $class->new($r)->default_handler();
}sub chdir_file {
my $self = shift;
# deal with silly deprecation warnings in 5.8.0-dev (which was
# backported to some 5.8.0 distros, like RH)
# http://archive.develooper.com/[EMAIL PROTECTED]/msg93050.html
my $file = @_ ? shift : $self->{FILENAME};
my $dir = File::Basename::dirname($file);
chdir $dir or die "Can't chdir to $dir: $!";
}1; __END__
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
