Skip to content

Instantly share code, notes, and snippets.

/test.pl Secret

Created September 1, 2014 14:25
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/e0282b998cb996d54e50 to your computer and use it in GitHub Desktop.
Save anonymous/e0282b998cb996d54e50 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.pl
my $code = <<'EOF';
#line 1 "template"
sub { my $_M = ''; ; do { $_M .= "test\
123\n";
die 'should be line 3';
$_M .= "test\n";
#line 4 "template"
; $_M } };
EOF
my $compiled = eval $code;
$compiled->();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment