From @masak

r30183​:
$ ./perl6 -e '"yo" ~~ /yo/; say $/' # works
yo

$ ./perl6 -e 'if "yo" ~~ /yo/ { say $/ }' # worksn't
Null PMC access in get_string()
[...]

$ ./perl6 -e '"foo" ~~ /foo/; if 42 { say $/ }'
Null PMC access in get_string()
[...]

From @moritz

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/

From @masak

This is most likely a direct consequence of #​57858​: "$/ is de-defined in
if blocks in rakudo".

From @jnthn

Hi,

All broken examples in this ticket now work as or r22207.

Thanks,

Jonathan

The RT System itself - Status changed from 'new' to 'open'

@jnthn - Status changed from 'open' to 'resolved'