diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2015-10-16 17:20:04 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-10-19 13:14:04 +1100 |
| commit | 908febd9653d134c36cf212757ff14729d2d70ee (patch) | |
| tree | e549260dc63eb340dac5049bd985b03ef5dab497 /dist/IO/IO.pm | |
| parent | 1e777496fd51e7d05020c0f05a4f2e19f2a3148d (diff) | |
| download | perl-908febd9653d134c36cf212757ff14729d2d70ee.tar.gz | |
Fix assertion when calling IO::Poll::_poll() with an empty fd array
perl: IO.xs:322: XS_IO__Poll__poll: Assertion
`PL_valid_types_PVX[((svtype)((_svpvx)->sv_flags & 0xff)) & 0xf]'
failed.
This is because NEWSV(…, 0) returns undef, with a grabage pointer in
the PV slot. This doesn't seem to matter in practice, since nothing
actually dereferences the pointer when nfds is zero, but to be safe we
should pass in _some_ valid pointer, so just use the SV* itself;
Diffstat (limited to 'dist/IO/IO.pm')
| -rw-r--r-- | dist/IO/IO.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/IO/IO.pm b/dist/IO/IO.pm index 2762958210..de3e991a90 100644 --- a/dist/IO/IO.pm +++ b/dist/IO/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.35"; +our $VERSION = "1.36"; XSLoader::load 'IO', $VERSION; sub import { |