# New Ticket Created by "Mark J. Reed"
# Please include the string: [perl #68980]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68980 >
> %*ENV<PATH>.perl.say
"/sw/bin:/sw/sbin:/Users/mreed/bin:/opt/local/bin:/opt/mailman/bin:/opt/local/aolserver/bin:/opt/local/i386-apple-darwin9.1.0/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11/bin:/usr/sbin:/sbin:/etc:/usr/local/lib:/usr/lib"
> for %*ENV.kv -> $k, $v { say "{$k}={$v}" }
[...snip...]
DISPLAY=
HOME=
PATH=
[...snip...]
> %*ENV.values.perl.say
["", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""]
Regular hashes work fine:
> my %h = { 'a' => 1, 'b' => 2 }; %h.values.perl.say
[1, 2]
Verified present in b51d94.
--
Mark J. Reed <[email protected]>
