[Catalyst-commits] r7499 - in Catalyst-Runtime/5.80/branches/moose/lib/Catalyst: . DispatchType

[konobi at dev.catalyst.perl.org]

Author: konobi
Date: 2008-03-15 02:20:06 +0000 (Sat, 15 Mar 2008)
New Revision: 7499

Modified:
   Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/Component.pm
   Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/DispatchType/Regex.pm
Log:
Fixup some pre-(make test) typos.

Modified: Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/Component.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/Component.pm	2008-03-15 01:58:53 UTC (rev 7498)
+++ Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/Component.pm	2008-03-15 02:20:06 UTC (rev 7499)
@@ -8,7 +8,7 @@
                  is => 'rw',
                  isa => 'HashRef',
                  required => 1,
-                 default => {}
+                 default => sub { {} }
                 );
 
 class_has _plugins => ( is => 'rw' );
@@ -66,9 +66,9 @@
 
     # Temporary fix, some components does not pass context to constructor
     my $arguments = ( ref( $_[-1] ) eq 'HASH' ) ? $_[-1] : {};
-    my $merged = $self->merge_config_hashes( $self->config, $arguments ) );
+    my $merged = $self->merge_config_hashes( $self->config, $arguments );
     $orig->( $self, $merged );
-}
+};
 
 sub COMPONENT {
     my ( $self, $c ) = @_;

Modified: Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/DispatchType/Regex.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/DispatchType/Regex.pm	2008-03-15 01:58:53 UTC (rev 7498)
+++ Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/DispatchType/Regex.pm	2008-03-15 02:20:06 UTC (rev 7499)
@@ -66,7 +66,7 @@
     }
 
     return 0;
-}
+};
 
 =head2 $self->register( $c, $action )