This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
xs_version_bootcheck() must use mortals, as {new,upg}_version() can croak.
authorNicholas Clark <nick@ccl4.org>
Fri, 8 Oct 2010 10:59:47 +0000 (11:59 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 8 Oct 2010 15:58:10 +0000 (16:58 +0100)
commitf9cc56fa8caacd402d316a1cd95160cd70fb4c9e
tree7c5065e08f7c931de98f5334ce4cd2a0f620b2e0
parent0e7bfc0a13342232c7329dcc019fa6e7fe360521
xs_version_bootcheck() must use mortals, as {new,upg}_version() can croak.

It's unlikely that XS_VERSION will contain a bogus version string (for long),
but the value passed in (or derived from $XS_VERSION or $VERSION) might well.
For that case, without this change, temporary SVs created within
xs_version_bootcheck() won't be freed (before interpreter exit).
MANIFEST
ext/XS-APItest/APItest.xs
ext/XS-APItest/Makefile.PL
ext/XS-APItest/XSUB-redefined-macros.xs [new file with mode: 0644]
ext/XS-APItest/t/xsub_h.t
util.c