This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
-w interacts badly with -Dt
authorSpider Boardman <spider@Orb.Nashua.NH.US>
Wed, 11 Jun 1997 00:00:00 +0000 (12:00 +1200)
committerTim Bunce <Tim.Bunce@ig.co.uk>
Wed, 11 Jun 1997 00:00:00 +0000 (12:00 +1200)
sv.c

diff --git a/sv.c b/sv.c
index ece94b9..53499fd 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -889,6 +889,7 @@ register SV *sv;
     STRLEN prevlen;
     int unref = 0;
 
+    sv_setpvn(t, "", 0);
   retry:
     if (!sv) {
        sv_catpv(t, "VOID");