diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-01-02 23:21:14 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-02 23:48:37 -0800 |
| commit | c2910e6c49b5f3a963bfe7b3ae50390e1b4c0c83 (patch) | |
| tree | ef88c5a68a8e259e1238176659cc34ff693aeb8c | |
| parent | ac0650a4c9f69cdc9e7af31df29011c42b42b770 (diff) | |
| download | perl-c2910e6c49b5f3a963bfe7b3ae50390e1b4c0c83.tar.gz | |
Silence a compiler warning
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -554,8 +554,8 @@ do_clean_named_io_objs(pTHX_ SV *const sv) /* Void wrapper to pass to visit() */ static void do_curse(pTHX_ SV * const sv) { - if ((PL_stderrgv && GvGP(PL_stderrgv) && GvIO(PL_stderrgv) == sv) - || (PL_defoutgv && GvGP(PL_defoutgv) && GvIO(PL_defoutgv) == sv)) + if ((PL_stderrgv && GvGP(PL_stderrgv) && (SV*)GvIO(PL_stderrgv) == sv) + || (PL_defoutgv && GvGP(PL_defoutgv) && (SV*)GvIO(PL_defoutgv) == sv)) return; (void)curse(sv, 0); } |