# New Ticket Created by Zoffix Znet
# Please include the string: [perl #130477]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=130477 >
For example, in the code below, only `:bar` config var would have the correct
value. The rest
all parse OK but the rest simply stringify whatever is inside the `()`:
=begin table :foo('meow') :bar<meow> :ber(Q|foos|) :var(join "\n", <a b c>)
The Bowler Carol Pinnsler Haunted bowling ball
=end table
dd $=pod
# [Pod::Block::Table.new(caption => Any, headers => [], config =>
{:bar("meow"), :ber("Q|foos|"), :foo("'meow'"), :var("join \"\\n\", <a b c>")},
contents => [["The Bowler", "Carol Pinnsler", "Haunted bowling ball"],])]
I took a look at fixing this, and the problematic code has comments "# This is
a cheaty and evil hack." and "# and this is the worst hack of them all."
Need to determine what sort of config values are acceptable (considering right
now you can execute arbitrary code via a BEGIN block) and then change how this
stuff is actually parsed.
