Stas, Thanks again for your efforts. Unfortunately, I am still getting the warning.
Regards, Ed Ruben Keyhole Corp. -----Original Message----- From: Stas Bekman [mailto:[EMAIL PROTECTED] Sent: Wednesday, August 13, 2003 12:38 PM Cc: Ed Ruben; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Re: [mp2] RegistryPrefork has deprecated Pseudo-hash Stas Bekman wrote: > 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]
