767fb8de8fe65dd231a4264329deb30324d08b80
[gentoo.git] / dev-perl / SpeedyCGI / files / SpeedyCGI-2.22-uninit-crash.patch
1 Author: Niko Tyni <ntyni@debian.org>
2 Description: Closes: #537996
3 The SvIV call crashes in on Perl 5.10.0 when warnings are
4 enabled and the value is undef.
5 --- a/src/speedy_perl.c
6 +++ b/src/speedy_perl.c
7 @@ -818,7 +818,7 @@
8      my_call_sv(get_perlvar(&PERLVAR_RESET_GLOBALS));
9  
10      /* Copy option values in from the perl vars */
11 -    if (SvIV(PERLVAL_OPTS_CHANGED)) {
12 +    if (SvTRUE(PERLVAL_OPTS_CHANGED)) {
13         int i;
14         for (i = 0; i < SPEEDY_NUMOPTS; ++i) {
15             OptRec *o = speedy_optdefs + i;