diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 22:07:53 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:40 -0800 |
commit | f5658c36d8be338cf8de02053d2905f99f1eaabf (patch) | |
tree | dfd5db3cd6ef6958e5a5598ad56aafe6da1fadfc | |
parent | e6df7a56063a4369e9942fa219dee1109f66a14a (diff) | |
download | perl-f5658c36d8be338cf8de02053d2905f99f1eaabf.tar.gz |
pad.c: Don’t mk temp SVs for unavailable warnings
We already have the name SVs available, not just the string and length.
-rw-r--r-- | pad.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1221,8 +1221,7 @@ S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv, { if (warn) S_unavailable(aTHX_ - newSVpvn_flags(namepv, namelen, - SVs_TEMP|SVf_UTF8)); + *out_name); *out_capture = NULL; } @@ -1269,8 +1268,7 @@ S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv, && !PadnameIsSTATE(name_p[offset])) { S_unavailable(aTHX_ - newSVpvn_flags(namepv, namelen, - SVs_TEMP|SVf_UTF8)); + name_p[offset]); *out_capture = NULL; } } |