diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-06 20:09:29 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-06 20:09:29 +0000 |
| commit | dc8d642c74abd1b6677ca197c9f517158a03b78c (patch) | |
| tree | dfbddbd2d8d9ad8956af2d50f9ae39605b403330 /pp_sys.c | |
| parent | 767010ca49e6a0dff07d97842a8341decbed33d9 (diff) | |
| download | perl-dc8d642c74abd1b6677ca197c9f517158a03b78c.tar.gz | |
[perl #36470] 'undef $@; die' gives uninint value warning
p4raw-id: //depot/perl@25087
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -517,7 +517,10 @@ PP(pp_die) if (SvPOK(error) && SvCUR(error)) sv_catpv(error, "\t...propagated"); tmpsv = error; - tmps = SvPV_const(tmpsv, len); + if (SvOK(tmpsv)) + tmps = SvPV_const(tmpsv, len); + else + tmps = Nullch; } } if (!tmps || !len) |