From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 24 Apr 2002 15:50:31 +0000 (+0000)
Subject: Submit an old integrate
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a4a3262b6bd15d09314b8113a697941b4c96620;p=p5sagit%2Fp5-mst-13.2.git

Submit an old integrate

p4raw-id: //depot/perlio@16131
---

0a4a3262b6bd15d09314b8113a697941b4c96620
diff --cc ext/Encode/Encode.xs
index 992fbfe,53716b8..be69c33
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@@ -263,6 -265,33 +265,33 @@@ CODE
      XSRETURN(1);
  }
  
+ void
+ Method_needs_lines(obj)
+ SV *	obj
+ CODE:
+ {
+     encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj)));
+     ST(0) = &PL_sv_no;
+     XSRETURN(1);
+ }
+ 
+ void
+ Method_perlio_ok(obj)
+ SV *	obj
+ CODE:
+ {
+     encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj)));
+     require_pv(PERLIO_FILENAME);
 -    if (hv_exists(get_hv("INC", 0), 
++    if (hv_exists(get_hv("INC", 0),
+ 		  PERLIO_FILENAME, strlen(PERLIO_FILENAME)))
+     {
+ 	ST(0) = &PL_sv_yes;
+     }else{
+ 	ST(0) = &PL_sv_no;
+     }
+     XSRETURN(1);
+ }
+ 
  MODULE = Encode         PACKAGE = Encode
  
  PROTOTYPES: ENABLE