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 (file)
--- 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;