Skip to content

Instantly share code, notes, and snippets.

Created July 6, 2009 02:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/141232 to your computer and use it in GitHub Desktop.
Save anonymous/141232 to your computer and use it in GitHub Desktop.
# Null PMC access in get_string()
# in regex PGE::Grammar::_block48 (tab-width.p6:7)
# called from Main (tab-width.p6:40)
my $osrc = $isrc.subst(
rx/
^^
$<variables> = (
$<indent> = ( \N+ )
Local\ variables: \N* \n
[ $<indent> \N* \n ]+
)
$<end> = (
$<indent> End\: \N* \n
)
# Less than 1K from the end.
.**{0..1024} $
/,
{
# TODO: these don't work: $<variables>, $/<variables>, $/{variables}, etc
"$0{$0[0]}omg: 8\n$1"
}
);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment