This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove obsolete comment about SvPOKp in sv.h
authorFather Chrysostomos <sprout@cpan.org>
Wed, 30 Nov 2011 06:39:26 +0000 (22:39 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 30 Nov 2011 06:39:26 +0000 (22:39 -0800)
This comment was added in 373b357f1, and then invalidated by the same
person in 8eeaf79a, seventeen days later.

sv.h

diff --git a/sv.h b/sv.h
index c2a8b1a..7e80e77 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1288,10 +1288,6 @@ the scalar's value cannot change unless written to.
                 } STMT_END
 #endif
 
-/* SvPOKp not SvPOK in the assertion because the string can be tainted! eg
-   perl -T -e '/$^X/'
-*/
-
 #ifndef PERL_CORE
 #  define BmFLAGS(sv)          (SvTAIL(sv) ? FBMcf_TAIL : 0)
 #endif