diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-19 10:53:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-02-19 10:53:24 +0100 |
| commit | f5a573297aad004c6761b844d65a3e6d8402cd50 (patch) | |
| tree | 15ba7a63addd695eab23396b762042f689a96b49 /toke.c | |
| parent | 70a6e658a75720da8d999a28489475f2c4c51bd1 (diff) | |
| download | perl-f5a573297aad004c6761b844d65a3e6d8402cd50.tar.gz | |
Avoid returning an undefined SV*
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -11505,7 +11505,8 @@ S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen, } /* charnames doesn't work well if there have been errors found */ - if (PL_error_count > 0 && strEQ(key,"charnames")) return res; + if (PL_error_count > 0 && strEQ(key,"charnames")) + return &PL_sv_undef; cvp = hv_fetch(table, key, keylen, FALSE); if (!cvp || !SvOK(*cvp)) { |