diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2013-11-15 01:52:44 -0500 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-11-28 15:05:01 +1100 |
commit | 1061065f7a09399eefb50e9a035502621722bcc0 (patch) | |
tree | 6a6e42b07dbd902d1e51e6cd7639968f014006d6 /mathoms.c | |
parent | 2efab60d94be1ca94e3a5b26804d99d0402d0c44 (diff) | |
download | perl-1061065f7a09399eefb50e9a035502621722bcc0.tar.gz |
remove almost unreachable NULL sv arg code from sv_2*n_flags
The NULL sv code being removed dates to commit e334a159a5 Perl 1.0 as
the pre-SV str_2ptr and str_2num calls. When SVs were intoduced in
commit 79072805bf Perl 5.0 alpha 2, the NULL sv code was copied to the new
SV functions. The functions were bulk marked non-NULL in commit f54cb97a39
during 5.9.3 development. The docs were corrected to say NULLOK support
in commit 53e8571218 during 5.11.0.
See the perldelta part of this patch for the rest of commit body.
Diffstat (limited to 'mathoms.c')
-rw-r--r-- | mathoms.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -148,6 +148,8 @@ Perl_sv_taint(pTHX_ SV *sv) IV Perl_sv_2iv(pTHX_ SV *sv) { + PERL_ARGS_ASSERT_SV_2IV; + return sv_2iv_flags(sv, SV_GMAGIC); } @@ -158,6 +160,8 @@ Perl_sv_2iv(pTHX_ SV *sv) UV Perl_sv_2uv(pTHX_ SV *sv) { + PERL_ARGS_ASSERT_SV_2UV; + return sv_2uv_flags(sv, SV_GMAGIC); } @@ -179,6 +183,8 @@ Perl_sv_2nv(pTHX_ SV *sv) char * Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp) { + PERL_ARGS_ASSERT_SV_2PV; + return sv_2pv_flags(sv, lp, SV_GMAGIC); } |