From 27587ca8b7ddef294972dc381e6b28b5c325e86b Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven.rezic@idealo.de>
Date: Tue, 4 May 2021 12:51:45 +0200
Subject: [PATCH] compat with perl 5.33.7+
Fix for https://github.com/lokku/Perl-Critic-Lokku/issues/7
---
lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm | 2 +-
lib/Perl/Critic/Policy/TryTiny/RequireCatch.pm | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm b/lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm
index a827564..ddffe90 100644
--- a/lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm
+++ b/lib/Perl/Critic/Policy/TryTiny/ProhibitExitingSubroutine.pm
@@ -48,7 +48,7 @@ sub violates {
my ($self, $elem, undef) = @_;
return if $elem->content ne 'try';
- return if ! is_function_call($elem);
+ return if ! is_function_call($elem) && !($] >= 5.033007 && is_perl_bareword($elem));
my @blocks_to_check;
diff --git a/lib/Perl/Critic/Policy/TryTiny/RequireCatch.pm b/lib/Perl/Critic/Policy/TryTiny/RequireCatch.pm
index fd65614..4af17b0 100644
--- a/lib/Perl/Critic/Policy/TryTiny/RequireCatch.pm
+++ b/lib/Perl/Critic/Policy/TryTiny/RequireCatch.pm
@@ -48,7 +48,7 @@ sub violates {
my ($self, $elem, undef) = @_;
return if $elem->content ne 'try';
- return if ! is_function_call($elem);
+ return if ! is_function_call($elem) && !($] >= 5.033007 && is_perl_bareword($elem));
my $try_block = $elem->snext_sibling() or return;
my $sib = $try_block->snext_sibling();
--
2.25.1