Integrate with Sarathy.

p4raw-id: //depot/cfgperl@4549

diff --cc doio.c
Simple merge

diff --cc dump.c
Simple merge

diff --cc ext/B/B.xs
Simple merge

diff --cc op.c
Simple merge

diff --cc op.h
Simple merge

diff --cc opcode.pl
Simple merge

diff --cc perl.h
Simple merge

diff --cc perlapi.c
index 41dd32a,6ea713c..6ea713c
mode 100755,100644..100755
--- 1/perlapi.c
--- 2/perlapi.c
+++ b/perlapi.c

diff --cc pp_hot.c
Simple merge

diff --cc pp_sys.c
index d370a4c,98ecfac..d5b7969
--- 1/pp_sys.c
--- 2/pp_sys.c
+++ b/pp_sys.c
@@@ -2913,10 -2896,9 +2913,10 @@@ PP(pp_fttext
      register SV *sv;
      GV *gv;
      STRLEN n_a;
 +    PerlIO *fp;
  
      if (PL_op->op_flags & OPf_REF)
-       gv = (GV*)cSVOP->op_sv;
+       gv = cGVOP;
      else if (isGV(TOPs))
        gv = (GV*)POPs;
      else if (SvROK(TOPs) && isGV(SvRV(TOPs)))

diff --cc run.c
Simple merge

diff --cc scope.c
Simple merge

diff --cc sv.c
Simple merge

diff --cc util.c
Simple merge