# New Ticket Created by Moritz Lenz
# Please include the string: [perl #58312]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58312 >
Rakudo r30499:
my $str = 'foo <TMPL_VAR NAME=STUFF> <dsadf ';
if ( $str ~~ /'<'/ ) {
say $/.WHAT;
}
Null PMC access in get_string()
current instr.: 'print' pc 13098 (src/gen_builtins.pir:8311)
called from Sub 'say' pc 13120 (src/gen_builtins.pir:8321)
my $str = 'foo <TMPL_VAR NAME=STUFF> <dsadf ';
my @tokens;
if ( $str ~~ /'<'/ ) {
push @tokens, $/;
}
Null PMC access in type()
current instr.: '_block24' pc 282 (EVAL_14:107)
called from Sub '_block11' pc 70 (EVAL_14:29)
--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/
