This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: Remove more ro exceptions that c72a4ee missed.
authorFather Chrysostomos <sprout@cpan.org>
Sat, 10 Aug 2013 13:07:07 +0000 (06:07 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 11 Aug 2013 14:54:33 +0000 (07:54 -0700)
sv.c

diff --git a/sv.c b/sv.c
index ec80261..d69addc 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5493,8 +5493,7 @@ Perl_sv_magic(pTHX_ SV *const sv, SV *const obj, const int how,
 #endif
     if (SvREADONLY(sv)) {
        if (
-              IN_PERL_RUNTIME
-           && !PERL_MAGIC_TYPE_READONLY_ACCEPTABLE(how)
+           !PERL_MAGIC_TYPE_READONLY_ACCEPTABLE(how)
           )
        {
            Perl_croak_no_modify();
@@ -8272,7 +8271,6 @@ Perl_sv_inc_nomg(pTHX_ SV *const sv)
        if (SvIsCOW(sv) || isGV_with_GP(sv))
            sv_force_normal_flags(sv, 0);
        if (SvREADONLY(sv)) {
-           if (IN_PERL_RUNTIME)
                Perl_croak_no_modify();
        }
        if (SvROK(sv)) {
@@ -8454,7 +8452,6 @@ Perl_sv_dec_nomg(pTHX_ SV *const sv)
        if (SvIsCOW(sv) || isGV_with_GP(sv))
            sv_force_normal_flags(sv, 0);
        if (SvREADONLY(sv)) {
-           if (IN_PERL_RUNTIME)
                Perl_croak_no_modify();
        }
        if (SvROK(sv)) {