From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Nov 1999 19:48:21 +0000 (+0000)
Subject: Integrate with Sarathy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a12f161a3a8b8cc9c866a9f342b9476fb0b9b95;p=p5sagit%2Fp5-mst-13.2.git

Integrate with Sarathy.

p4raw-id: //depot/cfgperl@4549
---

8a12f161a3a8b8cc9c866a9f342b9476fb0b9b95
diff --cc perlapi.c
index 41dd32a,6ea713c..6ea713c
mode 100755,100644..100755
--- a/perlapi.c
+++ b/perlapi.c
diff --cc pp_sys.c
index d370a4c,98ecfac..d5b7969
--- a/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)))