Branch: refs/heads/blead
Home: https://github.com/Perl/perl5
Commit: af62106ad344b13fde54d2c0d5e7e0d0bab96054
https://github.com/Perl/perl5/commit/af62106ad344b13fde54d2c0d5e7e0d0bab96054
Author: Tony Cook <[email protected]>
Date: 2023-01-25 (Wed, 25 Jan 2023)
Changed paths:
M mg.c
M t/io/defout.t
Log Message:
-----------
check the IO object exists when writing to IO magic variables
pp_select() ensures that the GV in PL_defoutgv has an IO object
when it the default output is set, but can't prevent that GV
being cleared afterwards, resulting in a seg fault when the
variable is written.
To prevent this, check PL_defoutgv has an IO object before trying
to write to it.
Fixes #20733
