perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Torsten Foertsch <torsten.foert...@gmx.net>
Subject Re: AT Bug
Date Wed, 16 Jul 2008 13:13:08 GMT
On Wed 16 Jul 2008, Geoffrey Young wrote:
> I'd be interested in
> recording all the values passed in and see if they match during start
> and restart.

here you are.

The attached file is written with this print statement:

      print $f "$$=".(syscall 39).": ".($path // "(UNDEF)").": ".
	join( ", ", map {my @l=caller $_; "[$l[1]($l[2]): $l[3]]"} 0..3 )."\n";

I added syscall(39) (getpid) to make sure the correct $$ is reported.

Torsten

--
Need professional mod_perl support?
Just hire me: torsten.foertsch@gmx.net

Mime
View raw message