Code assumes that *FOO{SCALAR} will always return a scalar reference,

so make it so, creating $FOO if necessary.
(Effectively this is a policy decision that PERL_DONT_CREATE_GVSV is
visible to XS code, but isn't visible to Perl code)

p4raw-id: //depot/perl@27002

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 9676ce6501..96d5ef6a24 100644
--- a/pp.c
+++ b/pp.c
@@ -607,7 +607,7 @@ PP(pp_gelem)
 	    break;
 	case 'S':
 	    if (strEQ(second_letter, "CALAR"))
-		tmpRef = GvSV(gv);
+		tmpRef = GvSVn(gv);
 	    break;
 	}
     }