summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-28 20:45:15 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-28 20:45:15 +0000
commit26ab540f0a7b69d726901da633fc578e4cfbb05a (patch)
tree24da403f895dc8b5c04983401813dc078f77ed30 /pp_sys.c
parent820475bd7227fcbc2178bb45a4d501c4ccc2133b (diff)
downloadperl-26ab540f0a7b69d726901da633fc578e4cfbb05a.tar.gz
remove never-taken branch for making getc() operate on ARGV (spotted
by Ralph Corderoy <ralph@inputplus.demon.co.uk>) p4raw-id: //depot/perl@4733
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index b0227a52ac..39a599af16 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;