Re: [log4perl-devel] log4perl enhancement request ?

[Kevin G. <ke...@go...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

| sub level {
|      my $i = 0;
|      $i++ while caller($i);
|      return $i-6;
| }
|
| The $i-6 expression might need to be adapted if caller_level is set to
| anything but 0.

It seems like we should make that magic number 6 a log4perl constant or
something, doesn't it?  It's the number of levels between an application
and a cspec, is it?

- --
Happy Trails . . .

Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA  94706
(510) 525-5217
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
Comment: Using GnuPG with Netscape - http://enigmail.mozdev.org

iD8DBQE/8aS94g4/Tl71vUkRAvlCAKCr3X5Y9EVO8H5rvIuJyYIrG01FBwCgovCa
DPtotXUKyceNmgjnztf2L1Q=
=tPT9
-----END PGP SIGNATURE-----