This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for [perl #61976] Errno ($!) not evaluated to a error message string
authorDavid Mitchell <davem@iabyn.com>
Mon, 11 Jan 2010 21:42:07 +0000 (21:42 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 12 Jan 2010 00:26:59 +0000 (00:26 +0000)
commit0097b436152452e403cc71b4f1a1cfd30ec0ba1a
treed6bb18f919943ff444a63594a5ff6d249df5b0c0
parentd57ccc9acbe96c9956c5e636e8be87a590449add
fix for [perl #61976] Errno ($!) not evaluated to a error message string
(5.10.0 in taint mode)

Change 27176 / 2a509ed3c095f7d712013e653f68821f6bb2d6db fixed a taint
bug, which as a side effect, meant that $! used within a tainted expression
failed to have a string value.

This quick fix just makes sure the POK flag is set (prior to it being
shifted back to pPOK).
mg.c
t/op/taint.t