diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-05-31 06:07:57 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-05-31 06:07:57 -0500 |
| commit | 3879a82f53e539217e582f2afbccaaf1fe335b5e (patch) | |
| tree | ba123855099a54aa0513a3a794ddb49f5f104d34 | |
| parent | 84640f1b3b402d2a64a5005d757f7171df2d658d (diff) | |
| download | reply-3879a82f53e539217e582f2afbccaaf1fe335b5e.tar.gz reply-3879a82f53e539217e582f2afbccaaf1fe335b5e.zip | |
fix undef results
| -rw-r--r-- | lib/Reply/Plugin/ResultCache.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm index 2a11a02..fc260f5 100644 --- a/lib/Reply/Plugin/ResultCache.pm +++ b/lib/Reply/Plugin/ResultCache.pm @@ -44,6 +44,7 @@ sub mangle_result { my $self = shift; my ($result) = @_; + return unless defined $result; return '$' . $self->{result_name} . '[' . $#{ $self->{results} } . '] = ' . $result; } |