diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-10-24 15:59:40 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-25 13:49:32 +0000 |
| commit | 94051fc13882c77fe18ec0e2536d4b2ccf756784 (patch) | |
| tree | e8df55b6cafe4b9eabbc5a6100eff71bf556137d | |
| parent | 8d4151d38b6388a812272063c381dbe6deb90843 (diff) | |
| download | perl-94051fc13882c77fe18ec0e2536d4b2ccf756784.tar.gz | |
[ID 20001024.007] [PATCH] "Dump local *FH" causes SEGV
Message-Id: <E13o4c8-00076u-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@7435
| -rw-r--r-- | scope.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -302,6 +302,7 @@ Perl_save_gp(pTHX_ GV *gv, I32 empty) GvGP(gv) = gp_ref(gp); GvSV(gv) = NEWSV(72,0); GvLINE(gv) = CopLINE(PL_curcop); + GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : ""; GvEGV(gv) = gv; } else { |