diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-04 21:52:55 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-05 06:15:15 -0800 |
| commit | 5882ddb381a033c6699801b9b1046860bf7bfa9c (patch) | |
| tree | 660c95e1c4362fef4d348f2e5ee26df83973593e /toke.c | |
| parent | 952ad5fef90a698364a2c483108893d79afc5645 (diff) | |
| download | perl-5882ddb381a033c6699801b9b1046860bf7bfa9c.tar.gz | |
toke.c: Remove unnecessary SvRV null check
If SvROK is true, then SvRV will never be null. (If it is, then
serious problems will occur elsewhere, as other code assumes this.)
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2866,8 +2866,8 @@ S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e) * validation. */ table = GvHV(PL_hintgv); /* ^H */ cvp = hv_fetchs(table, "charnames", FALSE); - if (cvp && (cv = *cvp) && SvROK(cv) && ((rv = SvRV(cv)) != NULL) - && SvTYPE(rv) == SVt_PVCV && ((stash = CvSTASH(rv)) != NULL)) + if (cvp && (cv = *cvp) && SvROK(cv) && (rv = SvRV(cv), + SvTYPE(rv) == SVt_PVCV) && ((stash = CvSTASH(rv)) != NULL)) { const char * const name = HvNAME(stash); if strEQ(name, "_charnames") { |