This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix problematic typecast in filter_del()
authorMark P Lutz <tecmpl1@triton.ca.boeing.com>
Mon, 31 Aug 1998 21:13:11 +0000 (21:13 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 23 Sep 1998 07:15:08 +0000 (07:15 +0000)
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

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;