From 677ca5270bb482dd4a181c92531249084f454071 Mon Sep 17 00:00:00 2001 From: Mark P Lutz Date: Mon, 31 Aug 1998 21:13:11 +0000 Subject: [PATCH] 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 --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.7.4