From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 28 Dec 1999 20:45:15 +0000 (+0000)
Subject: remove never-taken branch for making getc() operate on ARGV (spotted
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26ab540f0a7b69d726901da633fc578e4cfbb05a;p=p5sagit%2Fp5-mst-13.2.git

remove never-taken branch for making getc() operate on ARGV (spotted
by Ralph Corderoy <ralph@inputplus.demon.co.uk>)

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

diff --git a/pp_sys.c b/pp_sys.c
index b0227a5..39a599a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1095,8 +1095,6 @@ PP(pp_getc)
 	gv = PL_stdingv;
     else
 	gv = (GV*)POPs;
-    if (!gv)
-	gv = PL_argvgv;
 
     if (mg = SvTIED_mg((SV*)gv, 'q')) {
 	I32 gimme = GIMME_V;