On Fri, 21 Feb 2003, Stas Bekman wrote: > Ged Haywood wrote: > > On Thu, 20 Feb 2003, Nick Tonkin wrote: > > > > > >>Hi, > >> > >>In my logs when dumping a warn() I see this occasionally: > >> > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28. > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28. > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28. > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28, <GEN1> line 245. > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28. > >>192.168.0.24 at /home/wm/perl/WM/Auth/Access.pm line 28. > >> > >>Anyone know what <GEN1> is > > > > > > I think it comes from Symbol.pm. It's a handle: the string "GEN" is > > in the source, the digit is just picked by the package when it opens a > > file/socket/whatever it's doing. > > Most likely. > > >>and why it appears every so often? > > Try adding > > use Carp; > $SIG{__WARN__} = \&Carp::cluck; > > in your startup.pl, this may shed some light. what's the call at line 28 of > Access.pm? May be some debug print was forgotten in the modperl source code.
No, the warn is mine. It just says: my $ip = $r->connection->remote_ip; warn $ip; Here's the output with Carp::cluck - XX.XXX.XXX.X at /home/wm/perl/WM/Auth/Access.pm line 28, <GEN5> line 245. WM::Auth::Access::handler('Apache::RequestRec=SCALAR(0x85c5914)') called at -e line 0 eval {...} called at -e line 0 XX.XXX.XXX.X at /home/wm/perl/WM/Auth/Access.pm line 28. WM::Auth::Access::handler('Apache::RequestRec=SCALAR(0x85b4b24)') called at -e line 0 eval {...} called at -e line 0 one with <GEN5> and one right after it with nothing (as are almost all of them). - nick -- ~~~~~~~~~~~~~~~~~~~~ Nick Tonkin {|8^)>