Merge pull request #11 from paultcochrane/pr/quieten-perlcritic-on-no…

…-strict Quieten perlcritic on necessary 'no strict' calls
redhotpenguin · Aug 9, 2018 · 2bdaca9 · 2bdaca9
2 parents c44ded5 + aa5c69e
commit 2bdaca9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/XML/Parser/Lite.pm b/lib/XML/Parser/Lite.pm
@@ -32,7 +32,7 @@ sub setHandlers {
     my $self = shift;
 
     # allow symbolic refs, avoid "subroutine redefined" warnings
-    no strict 'refs';
+    no strict 'refs';  ## no critic
     no warnings qw(redefine);
     # clear all handlers if called without parameters
     if (not @_) {
@@ -128,7 +128,7 @@ my $REGEXP = _regexp('??');
 sub _parse_re {
     use re "eval";
     undef $^R;
-    no strict 'refs';
+    no strict 'refs';  ## no critic
     1 while $_[0] =~ m{$REGEXP}go
 };