In-place sort should not leave array read-only

$ ./perl -Ilib -e '@a=1..2; eval { @a=sort{die} @a }; warn "ok so far\n"; @a = 1'
ok so far
Modification of a read-only value attempted at -e line 1.

If something goes wrong inside the sort block and it dies, we still
need to make sure we turn off the read-only flag on that array.

1 files changed, 3 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index d2ae04a650..3ac3990fff 100644
--- a/scope.c
+++ b/scope.c
@@ -1228,6 +1228,9 @@ Perl_leave_scope(pTHX_ I32 base)
 	case SAVEt_PARSER:
 	    parser_free((yy_parser *) ARG0_PTR);
 	    break;
+	case SAVEt_READONLY_OFF:
+	    SvREADONLY_off(ARG0_SV);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: leave_scope inconsistency %u", type);
 	}