[Catalyst-commits] r10379 - Catalyst-Runtime/5.80/branches/component-tweaks/lib/Catalyst

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-30 00:11:51 +0000 (Sat, 30 May 2009)
New Revision: 10379

Modified:
   Catalyst-Runtime/5.80/branches/component-tweaks/lib/Catalyst/Component.pm
Log:
minor change

Modified: Catalyst-Runtime/5.80/branches/component-tweaks/lib/Catalyst/Component.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component-tweaks/lib/Catalyst/Component.pm	2009-05-30 00:00:36 UTC (rev 10378)
+++ Catalyst-Runtime/5.80/branches/component-tweaks/lib/Catalyst/Component.pm	2009-05-30 00:11:51 UTC (rev 10379)
@@ -72,7 +72,8 @@
     } elsif (@_ == 2) { # is it ($app, $args) or foo => 'bar' ?
         if (blessed($_[0]) ||
            (Class::MOP::is_class_loaded($_[0]) && $_[0]->isa('Catalyst'))) {
-            return $_[1];
+            return $_[1] if ref($_[1]) eq 'HASH';
+            return {};
         } else {
             return +{ @_ };
         }