This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Only #define IS_(PADGV|CONST) if !PERL_CORE
authorFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 06:18:54 +0000 (23:18 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 06:39:31 +0000 (23:39 -0700)
commit9429039d0141bfd63792bb18dbe602674f9afa8e
tree868b086d4af4c1f4243e7e36e6cb806d64bfffc4
parent4b795c961df6ca0753d6819f1daaded9f550a6b7
Only #define IS_(PADGV|CONST) if !PERL_CORE

and give IS_PADGV a simpler definition.

These are not used in the perl core any more and shouldn’t be.

The IS_PADGV definition checked for the IN_PAD flag, which flag never
made much sense (see the prev. commit’s message).  Since any GV could
end up with that flag, and since any GV coming near a pad would get
it, it might as well have been turned on for all GVs (except copies).
So just check whether the thingy is a GV.
op.h