Login
More self compliance
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 10:54:11 +0000 (10:54 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 26 Oct 2008 10:54:11 +0000 (10:54 +0000)
lib/Perl/Critic/Policy/CodeLayout/ProhibitParensWithBuiltins.pm
lib/Perl/Critic/Utils.pm
t/16_roundtrip_defaults.t

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>
index ba15384..016637c 100644 (file)
@@ -26,7 +26,7 @@ our $VERSION = '1.093_01';
 
 #-----------------------------------------------------------------------------
 
-eval 'use Test::Deep'; ## no critic (
+eval 'use Test::Deep'; ## no critic (StringyEval)
 plan( skip_all => 'Test::Deep requried to test round-trip of default values')
     if $EVAL_ERROR;