diff options
| author | Mark P Lutz <tecmpl1@triton.ca.boeing.com> | 1998-08-31 21:13:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 07:15:08 +0000 |
| commit | d09918291b3825f443beec2a6cedc42903653f80 (patch) | |
| tree | 5574e68a22f25459343a3e621aed796c57f4f15d /toke.c | |
| parent | 2316144aabe9c2d81f8b20b03710eba46cd556d0 (diff) | |
| download | perl-d09918291b3825f443beec2a6cedc42903653f80.tar.gz | |
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
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |