X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FSub%2FOp.pm;h=76d22dacb4dab4ba36869b65ecbceaf8353ffae7;hb=03a0301f7c3c094686a5412c86319e32354a3521;hp=1702f3ee49e731d9efe9ea53b62943571b3a2ad1;hpb=a2cacd5001fc982edeb39a4262079c6661ceb2f4;p=perl%2Fmodules%2FSub-Op.git

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index 1702f3e..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) {
@@ -331,7 +327,7 @@ sub _inject {
   $B_OP_inject{can} = sub {
    my ($obj, $meth) = @_;
    if ($meth eq 'first') {
-    return undef unless defined _custom_name($obj);
+    return undef unless $obj->isa('B::UNOP') or defined _custom_name($obj);
    }
    $obj->SUPER::can($meth);
   };
@@ -374,7 +370,7 @@ BEGIN { _monkeypatch() }
 
 =head1 EXAMPLES
 
-See the F<t/Sub-Op-Test> directory that implements a complete example.
+See the F<t/Sub-Op-LexicalSub> directory that implements a complete example.
 
 =head1 DEPENDENCIES