Fix for perl 5.8. RT#61122

diff --git a/Changes b/Changes
index 691d697..ef6876a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+  - Fix for perl 5.8. RT#61122
+
 5.90018 - 2012-10-23 20:55:00
   - Changed code in test suite so it no longer trips up on recent changes to
     HTTP::Message.

diff --git a/t/aggregate/live_component_controller_attributes.t b/t/aggregate/live_component_controller_attributes.t
index d991b79..9f8e8c7 100644 (file)
--- a/t/aggregate/live_component_controller_attributes.t
+++ b/t/aggregate/live_component_controller_attributes.t
@@ -17,7 +17,7 @@ sub ok_actions {
         (map { "TestApp::Controller::Attributes->$_" } @$actions),
         'TestApp::Controller::Root->end';
     is( $response->header('x-catalyst-executed') => $expected,
-        $msg//'Executed correct acitons');
+        $msg || 'Executed correct acitons');
     }
 
 ok( my $response = request('http://localhost/attributes/view'),