This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
UNOP opclass test in B.xs
authorStephen McCamant <smcc@mit.edu>
Wed, 8 Jul 1998 23:16:49 +0000 (18:16 -0500)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 9 Jul 1998 05:39:48 +0000 (05:39 +0000)
Message-Id: <13732.16626.904108.608743@alias-2.pr.mcs.net>

p4raw-id: //depot/perl@1395

ext/B/B.xs

index b111e67..f9a0645 100644 (file)
@@ -135,12 +135,12 @@ cc_opclass(OP *o)
     case OA_BASEOP_OR_UNOP:
        /*
         * UNI(OP_foo) in toke.c returns token UNI or FUNC1 depending on
-        * whether bare parens were seen. perly.y uses OPf_SPECIAL to
-        * signal whether an OP or an UNOP was chosen.
-        * Frederic.Chauveau@pasteur.fr says we need to check for OPf_KIDS too.
+        * whether parens were seen. perly.y uses OPf_SPECIAL to
+        * signal whether a BASEOP had empty parens or none.
+        * Some other UNOPs are created later, though, so the best
+        * test is OPf_KIDS, which is set in newUNOP.
         */
-       return ((o->op_flags & OPf_SPECIAL) ? OPc_BASEOP :
-               (o->op_flags & OPf_KIDS) ? OPc_UNOP : OPc_BASEOP);
+       return (o->op_flags & OPf_KIDS) ? OPc_UNOP : OPc_BASEOP;
 
     case OA_FILESTATOP:
        /*