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 (file)
--- 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;