perl5.004 hints file (maint and dev paths)

[p5sagit/p5-mst-13.2.git] / av.c

diff --git a/av.c b/av.c
index 02be7cc..85bcf0c 100644 (file)
--- 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);