Pod config parses colopairs but simply stringifies whatever it matched #5962

p6rt · 2017-01-01T04:46:46Z

Migrated from rt.perl.org#130477 (status was 'resolved')

Searchable as RT130477$

p6rt · 2017-01-01T04:46:46Z

From @zoffixznet

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.