From 59807383e0f7cbd4354793a949af321b59afc68b Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Tue, 1 Jan 2013 12:25:22 +0000
Subject: [PATCH] More references to Logger fixed.

---
 Webperl/Logger.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Webperl/Logger.pm b/Webperl/Logger.pm
index 180604a..ccb9205 100644
--- a/Webperl/Logger.pm
+++ b/Webperl/Logger.pm
@@ -344,10 +344,10 @@ sub die_log {
 #         the caller expects a reference rather than a list.
 sub self_or_default {
     # 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
-    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
         $log_singleton = Webperl::Logger -> new() unless(defined($log_singleton));