diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-04 18:25:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-04 18:25:45 +0000 |
| commit | 86162ee834b1242cdc75a7bb8e5c50e5c9c10fd6 (patch) | |
| tree | b6960ac3acdf4ccae5bce690d73fa5264f285975 /ext | |
| parent | 4f25aa189c4a92535547c706ad37c13b7caee387 (diff) | |
| download | perl-86162ee834b1242cdc75a7bb8e5c50e5c9c10fd6.tar.gz | |
change#4485 didn't do the right thing for B::Bytecode
p4raw-link: @4485 on //depot/perl: b195d4879f55e1610299cb9b1b55356940c2a577
p4raw-id: //depot/perl@4516
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Bytecode.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm index 9cad99b53c..da8808a217 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; |