X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=lib%2FSub%2FOp.pm;h=bb2f345fbb67b2773640139be21ff6a60c1bc729;hp=8e380ca6835b49a9410b0753778e5a418812b292;hb=cca835349c605e0526dc400c6224e4551bf8b54a;hpb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index 8e380ca..bb2f345 100644
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -331,7 +331,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);
   };