From 39caa6651d887df19768fb14497fd7d7da61cbd2 Mon Sep 17 00:00:00 2001
From: Joshua Pritikin <joshua.pritikin@db.com>
Date: Mon, 15 Jun 1998 05:21:36 -0400
Subject: [PATCH] hand apply whitespace-mutiliated patch 	Message-Id:
 <H00000e50007289b@MHS> 	Subject: [PATCH 5.004_67] SvREADONLY for
 av_clear

p4raw-id: //depot/perl@1149
---
 av.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/av.c b/av.c
index 02be7cc..85bcf0c 100644
--- a/av.c
+++ b/av.c
@@ -327,6 +327,9 @@ av_clear(register AV *av)
 	return;
     /*SUPPRESS 560*/
 
+    if (SvREADONLY(av))
+	croak(no_modify);
+
     /* Give any tie a chance to cleanup first */
     if (SvRMAGICAL(av))
 	mg_clear((SV*)av); 
-- 
2.7.4