diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-23 13:11:48 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 01:45:29 -0800 |
commit | a5f4b619f316c936a9c585a8eb6511adc831eb52 (patch) | |
tree | ba2305856ee7df1d2a77600cd9d4cdd8ba74cf64 /pp.c | |
parent | b4cc4d79bdf5cb925f73a41f253ddedf9c846c5b (diff) | |
download | perl-a5f4b619f316c936a9c585a8eb6511adc831eb52.tar.gz |
pp.c: Remove useless read-only check from S_do_chomp
After sv_force_normal_flags, the scalar will no longer be read-only,
except in those cases where sv_force_normal_flags croaks. So this
check will never be true when SvFAKE was true.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -797,7 +797,7 @@ S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) /* SV is copy-on-write */ sv_force_normal_flags(sv, 0); } - if (SvREADONLY(sv)) + else Perl_croak_no_modify(aTHX); } |