per Larry suggestion, toss change#1327 and fix the documentation

to match behavior instead

p4raw-link: @1327 on //depot/perl: 0ce625782f64de805c21893bca308710ed297c68

p4raw-id: //depot/perl@1338

1 files changed, 2 insertions, 11 deletions

diff --git a/pp_sys.c b/pp_sys.c
index a7e8dd5b3b..6a4ad31eb5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -889,7 +889,6 @@ PP(pp_getc)
     djSP; dTARGET;
     GV *gv;
     MAGIC *mg;
-    PerlIO *fp;
 
     if (MAXARG <= 0)
 	gv = stdingv;
@@ -911,19 +910,11 @@ PP(pp_getc)
 	    SvSetMagicSV_nosteal(TARG, TOPs);
 	RETURN;
     }
-    if (!gv || !GvIO(gv) || !(fp = IoIFP(GvIOp(gv))))	/* valid fp? */
+    if (!gv || do_eof(gv)) /* make sure we have fp with something */
 	RETPUSHUNDEF;
-
-    if (do_eof(gv)) {			/* handle magic argv, if needed */
-	if (PerlIO_error(fp))
-	    PUSHs(&sv_undef);
-	else
-	    PUSHp("",0);
-	RETURN;
-    }
     TAINT;
     sv_setpv(TARG, " ");
-    *SvPVX(TARG) = PerlIO_getc(fp);	/* should never be EOF */
+    *SvPVX(TARG) = PerlIO_getc(IoIFP(GvIOp(gv))); /* should never be EOF */
     PUSHTARG;
     RETURN;
 }