summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-07-10 10:32:41 -0400
committerJesse Luehrs <doy@tozt.net>2013-07-10 10:32:41 -0400
commit7020ed490386e8a540e39d793a90738c160b5dcf (patch)
tree8cf838e5faec820c92277ef5b340604c2f194f30
parent691c1f74f58b14270d246fb78e2697d718822079 (diff)
downloadreply-7020ed490386e8a540e39d793a90738c160b5dcf.tar.gz
reply-7020ed490386e8a540e39d793a90738c160b5dcf.zip
don't let users overwrite the result cache
-rw-r--r--lib/Reply/Plugin/ResultCache.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm
index 6ecf9f6..b7b929b 100644
--- a/lib/Reply/Plugin/ResultCache.pm
+++ b/lib/Reply/Plugin/ResultCache.pm
@@ -58,7 +58,7 @@ sub mangle_result {
sub lexical_environment {
my $self = shift;
- return { "\@$self->{result_name}" => $self->{results} };
+ return { "\@$self->{result_name}" => [ @{ $self->{results} } ] };
}
1;