diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-10-20 16:06:08 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-10-20 16:06:08 -0500 |
| commit | b86710e953dc6a4403be3f92ae7c1908f4584376 (patch) | |
| tree | eda49f5f5a4cb4acb0626330b98595536aa98ec5 | |
| parent | 8e1b3d7b8d67f6c1bac94b4f59cfca2d097c3240 (diff) | |
| download | eval-closure-b86710e953dc6a4403be3f92ae7c1908f4584376.tar.gz eval-closure-b86710e953dc6a4403be3f92ae7c1908f4584376.zip | |
if $code is undef, we have an actual error; don't overwrite that
| -rw-r--r-- | lib/Eval/Closure.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index fbd3e2c..719701d 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -77,7 +77,7 @@ sub _clean_eval_closure { my $code = eval _make_source(@_); my $e = $@; - if (!ref($code) || ref($code) ne 'CODE') { + if (defined($code) && (!ref($code) || ref($code) ne 'CODE')) { $e = "The 'source' parameter must return a subroutine reference, " . "not $code"; undef $code; |