From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 4 Nov 1999 18:25:45 +0000 (+0000)
Subject: change#4485 didn't do the right thing for B::Bytecode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86162ee834b1242cdc75a7bb8e5c50e5c9c10fd6;p=p5sagit%2Fp5-mst-13.2.git

change#4485 didn't do the right thing for B::Bytecode

p4raw-link: @4485 on //depot/perl: b195d4879f55e1610299cb9b1b55356940c2a577

p4raw-id: //depot/perl@4516
---

diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index 9cad99b..da8808a 100644
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -470,11 +470,12 @@ sub B::GV::bytecode {
     my $egv = $gv->EGV;
     my $egvix = $egv->objix;
     ldsv($ix);
-    printf <<"EOT", $gv->FLAGS, $gv->GvFLAGS, $gv->LINE, cstring($gv->FILE);
+    printf <<"EOT", $gv->FLAGS, $gv->GvFLAGS, $gv->LINE, pvstring($gv->FILE);
 sv_flags 0x%x
 xgv_flags 0x%x
 gp_line %d
-gp_file %s
+newpv %s
+gp_file
 EOT
     my $refcnt = $gv->REFCNT;
     printf("sv_refcnt_add %d\n", $refcnt - 1) if $refcnt > 1;