Fix for perl 5.8. RT#61122

[catagits/Catalyst-Runtime.git] / t / aggregate / live_component_controller_attributes.t

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'),