From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Fri, 26 Feb 2010 10:26:45 +0000 (+0100)
Subject: Remove unused variable, spotted by Alex Hunsaker
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d56d7163335131cbf8948e87f4feddd57b0513f9;p=p5sagit%2Fp5-mst-13.2.git

Remove unused variable, spotted by Alex Hunsaker
---

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 278568a..e0b7dca 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -360,7 +360,6 @@ sub _find_code_refs {
 
 sub wrap_code_ref {
     my ($obj, $sub) = @_;
-    my $root = $obj->{Root};
 
     # wrap code ref $sub with _safe_call_sv so that, when called, the
     # execution will happen with the compartment fully 'in effect'.