Re: [mp2] what is GEN1 and why is it my log?
On Thu, 20 Feb 2003, Nick Tonkin wrote: 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. It's a perl feature. On warn's it'll add the filehandle and the line number when it's relevant. 5.6.1: $ ~perl/bin/perl -e 'warn foo; open F, .bashrc; warn Foo while F' 21 | head -5 foo at -e line 1. Foo at -e line 1, F line 1. Foo at -e line 1, F line 2. Foo at -e line 1, F line 3. Foo at -e line 1, F line 4. If you set $/ so it's not reading normal lines it'll say chunk instead of line: $ ~perl/bin/perl -e 'warn foo; $/ = undef; open F, .bashrc; warn Foo while F' 21 | head -5 foo at -e line 1. Foo at -e line 1, F chunk 1. Older perl's always said chunk. perl 5.5.3: $ perl -e 'warn foo; open F, .bashrc; warn Foo while F' 21 | head -5 foo at -e line 1. Foo at -e line 1, F chunk 1. Foo at -e line 1, F chunk 2. Foo at -e line 1, F chunk 3. Foo at -e line 1, F chunk 4. - ask -- ask bjoern hansen, http://www.askbjoernhansen.com/ !try; do();
[mp2] what is GEN1 and why is it my log?
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 and why it appears every so often?
Thanks,
- nick
--
Nick Tonkin {|8^)
Re: [mp2] what is GEN1 and why is it my log?
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. and why it appears every so often? Nope. :( 73, Ged.
Re: [mp2] what is GEN1 and why is it my log?
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.
__
Stas BekmanJAm_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
Re: [mp2] what is GEN1 and why is it my log?
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^)
