X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=array.c;h=aff66caf87daa6467746cf0a7067e37e392888ff;hb=39c3038ca76b338006c640ae6da52b407dd9e654;hp=5a1fcd4e5829be1188c455e41420f3d43f707835;hpb=6eb13c3b624098fc688ac86672bc30e26cbf8fd4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/array.c b/array.c
index 5a1fcd4..aff66ca 100644
--- a/array.c
+++ b/array.c
@@ -1,4 +1,4 @@
-/* $Header: array.c,v 3.0.1.2 90/08/13 21:52:20 lwall Locked $
+/* $Header: array.c,v 3.0.1.3 90/10/15 14:56:17 lwall Locked $
  *
  *    Copyright (c) 1989, Larry Wall
  *
@@ -6,6 +6,9 @@
  *    as specified in the README file that comes with the perl 3.0 kit.
  *
  * $Log:	array.c,v $
+ * Revision 3.0.1.3  90/10/15  14:56:17  lwall
+ * patch29: non-existent array values no longer cause core dumps
+ * 
  * Revision 3.0.1.2  90/08/13  21:52:20  lwall
  * patch28: defined(@array) and defined(%array) didn't work right
  * 
@@ -38,12 +41,15 @@ int lval;
 	    return str;
 	}
 	else
-	    return Nullstr;
+	    return &str_undef;
     }
-    if (lval && !ar->ary_array[key]) {
-	str = Str_new(6,0);
-	(void)astore(ar,key,str);
-	return str;
+    if (!ar->ary_array[key]) {
+	if (lval) {
+	    str = Str_new(6,0);
+	    (void)astore(ar,key,str);
+	    return str;
+	}
+	return &str_undef;
     }
     return ar->ary_array[key];
 }