From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 29 Jun 2005 20:24:12 +0000 (+0000)
Subject: Make warnings.t pass with -DPERL_DONT_CREATE_GVSV
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35a08ec738722f2d788a72020492a928f398b96e;p=p5sagit%2Fp5-mst-13.2.git

Make warnings.t pass with -DPERL_DONT_CREATE_GVSV

p4raw-id: //depot/perl@25011
---

diff --git a/pp_sys.c b/pp_sys.c
index a34efa9..4f4be10 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);