sv.c: Remove aTHX from croak_no_modify call
authorFather Chrysostomos <sprout@cpan.org>
Wed, 21 Nov 2012 17:25:41 +0000 (09:25 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 21 Nov 2012 17:25:41 +0000 (09:25 -0800)
This only applied to PERL_OLD_COPY_ON_WRITE.  Commit e3918bb703c
introduced this.  That commit was written before croak_no_modify
lost its aTHX, but was not merged till after that.  I missed this
when rebasing.

sv.c

diff --git a/sv.c b/sv.c
index cf4d742..5ecfbeb 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4741,7 +4741,7 @@ Perl_sv_force_normal_flags(pTHX_ register SV *const sv, const U32 flags)
 #ifdef PERL_OLD_COPY_ON_WRITE
     if (SvREADONLY(sv)) {
        if (IN_PERL_RUNTIME)
-           Perl_croak_no_modify(aTHX);
+           Perl_croak_no_modify();
     }
     else
        if (SvIsCOW(sv)) {