From 7020ed490386e8a540e39d793a90738c160b5dcf Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 10 Jul 2013 10:32:41 -0400
Subject: don't let users overwrite the result cache

---
 lib/Reply/Plugin/ResultCache.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.3-54-g00ecf