From: Erik W. S. <er...@se...> - 2002-09-05 06:42:46
|
Actually, ignore my previous patch and check this one out. I took the liberty of re-doing how the code is generated using the following syntax: *{ <foo> } = sub { <bar> } vs: $code = "sub foo { <bar> }"; eval $code; which enabled me to re-use it to auto-create new levels on the fly using: Log::Log4perl::Logger::create_custom_level("LITEWARN", "WARN"); I also re-did 025CustLevels.t with this in mind, as I think it's nicer than the BEGIN block method. While I was at it, I also updated logdie and friends so they die regardless of the OFF setting (and changed appropriate test classes), and implemented the newer constants that Mike has (although note I'm pretty sure this patch will clobber his). Cheers, -e |