This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 16a0715) | patch
(perl #130722) don't call SvPVX() on a glob
authorTony Cook <tony@develop-help.com>
Tue, 7 Feb 2017 05:14:53 +0000 (16:14 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 7 Feb 2017 22:45:31 +0000 (09:45 +1100)
commitdd314e1ca8c35e1e3f33c104a0ebca62c28f2d3e
tree5b86463925a466e27bafa7a957b2cca55d50084btree | snapshot
parent16a07156bec367e245074eb7448892c5f81feeefcommit | diff
(perl #130722) don't call SvPVX() on a glob

S_doparseform() called SvPVX() on the format argument, which
produced an assertion failure when the format was supplied as a
glob.

Since S_doparseform() calls SvPV() initially and stores the result,
just use that result.
pp_ctl.c diff | blob | blame | history
t/op/write.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.