diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-30 07:43:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-30 07:43:05 +0000 |
| commit | 0b4b7f425bbb7f4f6f4a885d16efb0978cf3643f (patch) | |
| tree | 6a5a3789cba84ccd2eaf71266c7afde4cd3e9aa7 /ext | |
| parent | a3874608cd3bf4e33ccd66b8bb03b2aeda20af14 (diff) | |
| download | perl-0b4b7f425bbb7f4f6f4a885d16efb0978cf3643f.tar.gz | |
Need a cast to avoid a compiler warning.
p4raw-id: //depot/perl@24621
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index a503627b21..70a7238347 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -347,7 +347,7 @@ typedef char *pvindex; mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)), \ name, strlen(name), cv, 0)) -#define BSET_xhv_name(hv, name) Perl_hv_name_set(aTHX_ hv, name, strlen(name), 0) +#define BSET_xhv_name(hv, name) Perl_hv_name_set(aTHX_ (HV*)hv, name, strlen(name), 0) /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about * what version of Perl it's being called under, it should do a 'use 5.006_001' or |