This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ac0650a
)
Silence a compiler warning
author
Father Chrysostomos
<sprout@cpan.org>
Mon, 3 Jan 2011 07:21:14 +0000
(23:21 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Mon, 3 Jan 2011 07:48:37 +0000
(23:48 -0800)
sv.c
patch
|
blob
|
blame
|
history
diff --git
a/sv.c
b/sv.c
index
160b132
..
5f9fb5d
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-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);
}