[Catalyst-commits] r6805 - trunk/Catalyst-View-Mason/lib/Catalyst/View

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 17:03:53 +0100 (Tue, 28 Aug 2007)
New Revision: 6805

Modified:
   trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
Log:
Properly report the package name in deprecation warnings.


Modified: trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm
===================================================================
--- trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2007-08-28 16:03:50 UTC (rev 6804)
+++ trunk/Catalyst-View-Mason/lib/Catalyst/View/Mason.pm	2007-08-28 16:03:53 UTC (rev 6805)
@@ -91,7 +91,7 @@
     delete @config{qw/use_match template_extension/};
 
     if ($self->config->{use_match}) {
-        $c->log->warn(sprintf(<<'EOW', $self))
+        $c->log->warn(sprintf(<<'EOW', blessed $self ? ref $self : $self));
 DEPRECATION WARNING: %s sets the use_match config variable to a true value.
 This has been deprecated as been deprecated. Please see the
 Catalyst::View::Mason documentation for details on use_match.