# New Ticket Created by H. Merijn Brand # Please include the string: [perl #123980] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=123980 >
$ perl6 -e '(1,Str,"a").map(*)[1].say'
(Str)
$ perl6 -e '(1,Str,"a").map(*)[1].perl.say'
Str
$ perl6 -e '(1,Str,"a").map(~*)[1].say'
use of uninitialized value of type Str in string context in block <unit> at
-e:1
$ perl6 -e '(1,Str,"a").map(~*)[1].perl.say'
use of uninitialized value of type Str in string context in block <unit> at
-e:1
""
$ perl6 -e '(1,Str,"a").map({$_//"-"})[1].say'
-
$ perl6 -e '(1,Str,"a").map({$_//"-"})[1].perl.say'
"-"
$ perl6 -e '(1,Str,"a").map(*//"-")[1].say'
(Str)
$ perl6 -e '(1,Str,"a").map(*//"-")[1].perl.say'
Str
--
H.Merijn Brand http://tux.nl Perl Monger http://amsterdam.pm.org/
using perl5.00307 .. 5.21 porting perl5 on HP-UX, AIX, and openSUSE
http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/
http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/
pgpLRMBqP1WbU.pgp
Description: PGP signature
