Get rid of indread, from Abhijit Menon-Sen.

p4raw-id: //depot/perl@11633

diff --git a/pp_sys.c b/pp_sys.c
index 2c6ad8e..b1bdde4 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -389,15 +389,6 @@ PP(pp_glob)
     return result;
 }
 
-#if 0          /* XXX never used! */
-PP(pp_indread)
-{
-    STRLEN n_a;
-    PL_last_in_gv = gv_fetchpv(SvPVx(GvSV((GV*)(*PL_stack_sp--)), n_a), TRUE,SVt_PVIO);
-    return do_readline();
-}
-#endif
-
 PP(pp_rcatline)
 {
     PL_last_in_gv = cGVOP_gv;