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^)>

Reply via email to