diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 20:39:22 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 21:45:12 -0700 |
| commit | 1d6bb9ae033c9dd42ee935e1458d658d0cca9183 (patch) | |
| tree | b501ec461dcb5843a627d1f8238e945cccff0591 /mg.c | |
| parent | 07c325bb70eb5bf207be61e7fb078595d9e9d3c3 (diff) | |
| download | perl-1d6bb9ae033c9dd42ee935e1458d658d0cca9183.tar.gz | |
mg.c: Avoid reifying GV for undefined sig handler
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3125,7 +3125,9 @@ Perl_sighandler(int sig) if (!cv || !CvROOT(cv)) { const HEK * const hek = gv - ? GvENAME_HEK(gv) + ? GvENAME_HEK(gv) + : cv && CvNAMED(cv) + ? CvNAME_HEK(cv) : cv && CvGV(cv) ? GvENAME_HEK(CvGV(cv)) : NULL; if (hek) Perl_ck_warner(aTHX_ packWARN(WARN_SIGNAL), |