diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-10-20 16:07:36 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-10-20 16:07:36 -0500 |
commit | b3bd5eb84e7a0251075360a04fd7e76a42815bcd (patch) | |
tree | 533566dd9844725bf87a512a6847a4abd2b8e475 /lib/Eval/Closure.pm | |
parent | b86710e953dc6a4403be3f92ae7c1908f4584376 (diff) | |
download | eval-closure-b3bd5eb84e7a0251075360a04fd7e76a42815bcd.tar.gz eval-closure-b3bd5eb84e7a0251075360a04fd7e76a42815bcd.zip |
heh, oops
Diffstat (limited to 'lib/Eval/Closure.pm')
-rw-r--r-- | lib/Eval/Closure.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index 719701d..c2a4387 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -1,4 +1,6 @@ package Eval::Closure; +use strict; +use warnings; use Sub::Exporter -setup => { exports => [qw(eval_closure)], groups => { default => [qw(eval_closure)] }, @@ -56,7 +58,7 @@ sub _validate_env { unless reftype($env) eq 'HASH'; for my $var (keys %$env) { - croak("Environment key '$_' should start with \@, \%, or \$") + croak("Environment key '$var' should start with \@, \%, or \$") unless $var =~ /^([\@\%\$])/; croak("Environment values must be references, not $env->{$var}") unless ref($env->{$var}); |