Submit an old integrate

p4raw-id: //depot/perlio@16131

diff --cc ext/Encode/Encode.xs
index 992fbfe,53716b8..be69c33
--- 1/ext/Encode/Encode.xs
--- 2/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