perl 5.0 alpha 5

[perl5.git] / gv.c

diff --git a/gv.c b/gv.c
index 790e9d7..5e04e52 100644 (file)
--- 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);