Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More references to Logger fixed.

Browse Source
This commit is contained in:
Chris 2013-01-01 12:25:22 +00:00
parent 08363a3899
commit 59807383e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/Logger.pm
View File

@ -344,10 +344,10 @@ sub die_log {
# the caller expects a reference rather than a list. # the caller expects a reference rather than a list.
sub self_or_default { sub self_or_default {
# Called as 'Logger' -> something. # Called as 'Logger' -> something.
return @_ if(defined($_[0]) && (!ref($_[0])) && ($_[0] eq 'Logger')); return @_ if(defined($_[0]) && (!ref($_[0])) && ($_[0] eq 'Webperl::Logger'));
# If not called as a Logger object, shove the singleton into the argument list # If not called as a Logger object, shove the singleton into the argument list
unless(defined($_[0]) && (ref($_[0]) eq 'Logger' || UNIVERSAL::isa($_[0], 'Logger'))) { unless(defined($_[0]) && (ref($_[0]) eq 'Webperl::Logger' || UNIVERSAL::isa($_[0], 'Webperl::Logger'))) {
# Make a new singleton if one hasn't been made already # Make a new singleton if one hasn't been made already
$log_singleton = Webperl::Logger -> new() unless(defined($log_singleton)); $log_singleton = Webperl::Logger -> new() unless(defined($log_singleton));