This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
You can't there from here. (Dead code in sv_2pv_flags)
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Nov 2005 21:03:58 +0000 (21:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Nov 2005 21:03:58 +0000 (21:03 +0000)
p4raw-id: //depot/perl@26002

sv.c

diff --git a/sv.c b/sv.c
index 19cb7b3..7409213 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3252,7 +3252,9 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
        STRLEN len;
         const char *t;
 
        STRLEN len;
         const char *t;
 
+       assert (!tsv);
        if (tsv) {
        if (tsv) {
+           /* There is no code path that can get you here.  */
            sv_2mortal(tsv);
            t = SvPVX_const(tsv);
            len = SvCUR(tsv);
            sv_2mortal(tsv);
            t = SvPVX_const(tsv);
            len = SvCUR(tsv);