Make warnings.t pass with -DPERL_DONT_CREATE_GVSV

p4raw-id: //depot/perl@25011

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index a34efa9e2c..4f4be10a44 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -564,7 +564,7 @@ PP(pp_open)
 	sv = *++MARK;
     }
     else {
-	sv = GvSV(gv);
+	sv = GvSVn(gv);
     }
 
     tmps = SvPV_const(sv, len);