diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-26 11:26:45 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-26 11:26:45 +0100 |
| commit | d56d7163335131cbf8948e87f4feddd57b0513f9 (patch) | |
| tree | 68985fbd660e4b0d2ead1f7831e49499f31c44e3 | |
| parent | 27c4ce72ddbd75b22d861f598b90df3c325193bf (diff) | |
| download | perl-d56d7163335131cbf8948e87f4feddd57b0513f9.tar.gz | |
Remove unused variable, spotted by Alex Hunsaker
| -rw-r--r-- | dist/Safe/Safe.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm index 278568a8dc..e0b7dcaa5e 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'. |