Remove unused variable, spotted by Alex Hunsaker

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 278568a..e0b7dca 100644 (file)
--- 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'.