From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 10 May 2002 14:42:10 +0000 (+0000)
Subject: Unused variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b32afa7c6bd7df4b0e3ad4d3afedab96a563c657;p=p5sagit%2Fp5-mst-13.2.git

Unused variables.

p4raw-id: //depot/perl@16536
---

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 09918a1..6e24039 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -283,7 +283,7 @@ Method_needs_lines(obj)
 SV *	obj
 CODE:
 {
-    encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj)));
+    /* encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj))); */
     ST(0) = &PL_sv_no;
     XSRETURN(1);
 }
@@ -293,7 +293,7 @@ Method_perlio_ok(obj)
 SV *	obj
 CODE:
 {
-    encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj)));
+    /* encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj))); */
     /* require_pv(PERLIO_FILENAME); */
 
     eval_pv("require PerlIO::encoding", 0);