This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove SvOOK_on
authorFather Chrysostomos <sprout@cpan.org>
Thu, 1 Dec 2011 07:06:55 +0000 (23:06 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 1 Dec 2011 07:06:55 +0000 (23:06 -0800)
Nothing is using in core or on CPAN.  It is not part of the API.

sv.h

diff --git a/sv.h b/sv.h
index 7e80e77..dcd53f7 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -848,7 +848,6 @@ in gv.h: */
                                 ? mg_find(sv,PERL_MAGIC_vstring) : NULL)
 
 #define SvOOK(sv)              (SvFLAGS(sv) & SVf_OOK)
-#define SvOOK_on(sv)           ((void)SvIOK_off(sv), SvFLAGS(sv) |= SVf_OOK)
 #define SvOOK_off(sv)          ((void)(SvOOK(sv) && sv_backoff(sv)))
 
 #define SvFAKE(sv)             (SvFLAGS(sv) & SVf_FAKE)