From: Mark P Lutz <tecmpl1@triton.ca.boeing.com>
Date: Mon, 31 Aug 1998 21:13:11 +0000 (+0000)
Subject: fix problematic typecast in filter_del()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=677ca5270bb482dd4a181c92531249084f454071;p=p5sagit%2Fp5-mst-13.2.git

fix problematic typecast in filter_del()
	Message-Id: <199808312113.VAA53356@triton.ca.boeing.com>
	Subject: perl5.005_02 does not build on Cray T90

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

diff --git a/toke.c b/toke.c
index 2583a42..1556325 100644
--- a/toke.c
+++ b/toke.c
@@ -1431,7 +1431,7 @@ filter_del(filter_t funcp)
     if (!PL_rsfp_filters || AvFILLp(PL_rsfp_filters)<0)
 	return;
     /* if filter is on top of stack (usual case) just pop it off */
-    if (IoDIRP(FILTER_DATA(AvFILLp(PL_rsfp_filters))) == (void*)funcp){
+    if (IoDIRP(FILTER_DATA(AvFILLp(PL_rsfp_filters))) == (DIR*)funcp){
 	sv_free(av_pop(PL_rsfp_filters));
 
         return;