Login
More self compliance
[gknop/Perl-Critic.git] / lib / Perl / Critic / Utils.pm
index 1fb7df2..66ee713 100644 (file)
@@ -15,6 +15,8 @@ use strict;
 use warnings;
 use Readonly;
 
+use Carp qw( confess );
+use English qw(-no_match_vars);
 use File::Spec qw();
 use Scalar::Util qw( blessed );
 use B::Keywords qw();
@@ -249,7 +251,7 @@ sub hashify {  ## no critic (ArgUnpacking)
 
 sub interpolate {
     my ( $literal ) = @_;
-    return eval "\"$literal\"";  ## no critic (StringyEval);
+    return eval "\"$literal\"" or confess $EVAL_ERROR;  ## no critic (StringyEval);
 }
 
 #-----------------------------------------------------------------------------
@@ -1684,6 +1686,8 @@ function call whose return value is not checked.
 
 =item C<$EMPTY>
 
+=item C<$EQUAL>
+
 =item C<$SPACE>
 
 =item C<$SLASH>