From: Vincent Pit Date: Sat, 2 Jan 2010 20:33:34 +0000 (+0100) Subject: We don't need $fqn in enable()/disable() X-Git-Tag: v0.01~3 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=03a0301f7c3c094686a5412c86319e32354a3521;p=perl%2Fmodules%2FSub-Op.git We don't need $fqn in enable()/disable() --- diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm index bb2f345..76d22da 100644 --- a/lib/Sub/Op.pm +++ b/lib/Sub/Op.pm @@ -242,8 +242,6 @@ sub enable { my $name = shift; my $pkg = @_ > 0 ? $_[0] : caller; - my $fqn = "${pkg}::$name"; - my $map = _map($pkg); if (defined $map) { @@ -272,8 +270,6 @@ sub disable { my $name = shift; my $pkg = @_ > 0 ? $_[0] : caller; - my $fqn = "${pkg}::$name"; - my $map = _map($pkg); if (defined $map) {