Skip to content

Instantly share code, notes, and snippets.

/gist:478296

Created July 16, 2010 12:16
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/478296 to your computer and use it in GitHub Desktop.
Save anonymous/478296 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
pmichaud@plum:~/rakudo$ cat x
CHECK {
Q:PIR {
$P0 = getinterp
$P0 = $P0['context']
$P1 = getattribute $P0, 'current_sub'
say $P1
$P0 = getattribute $P0, 'outer_ctx'
$P1 = getattribute $P0, 'current_sub'
say $P1
$P0 = getattribute $P0, 'outer_ctx'
$P1 = getattribute $P0, 'current_sub'
say $P1
$P0 = getattribute $P0, 'outer_ctx'
$I0 = isnull $P0
say $I0
$P1 = getattribute $P0, 'current_sub'
say $P1
};
}
pmichaud@plum:~/rakudo$ ./perl6 x
_block76
_block64
1
Segmentation fault
pmichaud@plum:~/rakudo$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment