This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In S_doparseform(), don't force the pattern to a string. This resolves #79532
authorNicholas Clark <nick@ccl4.org>
Mon, 2 May 2011 11:37:30 +0000 (12:37 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 18 May 2011 18:11:03 +0000 (19:11 +0100)
commit37ffbfcca347ea751c9514463873b90f8a496be0
treeb5878d733f197a7bcdae2bec4da02ff7b1aa9bdd
parent74e0ddf711449aba3fac400d9102bd461ee7265b
In S_doparseform(), don't force the pattern to a string. This resolves #79532

Previously S_doparseform() was using SvPV_force(), because the pattern had to
be forced to a string, because the compiled format was stored in the string's
buffer. Now that the compiled format is stored in the magic struct, this isn't
necessary.

Additionally, removing the call to SvPV_force() removes the need to hack with
the SvREADONLY() flag in pp_formline.
pp_ctl.c
t/op/write.t