perl 5.0 alpha 5

    
[editor's note: the sparc executables have not been included,
and emacs backup files and other cruft such as patch backup files have
been removed.  This was reconstructed from a tarball found on the
September 1994 InfoMagic CD]

1 files changed, 5 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 790e9d7c81..5e04e52941 100644
--- a/gv.c
+++ b/gv.c
@@ -278,6 +278,11 @@ I32 add;
 
     /* set up magic where warranted */
     switch (*name) {
+    case 'a':
+    case 'b':
+	if (len == 1)
+	    SvMULTI_on(gv);
+	break;
     case 'I':
 	if (strEQ(name, "ISA")) {
 	    AV* av = GvAVn(gv);