We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 688f0d5 commit 57d9258Copy full SHA for 57d9258
lib/Text/PerlPP.pm
@@ -248,8 +248,10 @@ sub ExecuteCommand {
248
# to with its full package name if we didn't have the `our`.
249
# TODO add a pound line to this eval based on the current line number
250
251
+ # NOTE: `package NAME BLOCK` syntax was added in Perl 5.14.0, May 2011.
252
my $code = qq{ ;
- package $self->{Package} {
253
+ {
254
+ package $self->{Package};
255
our \$@{[PPP_SELF_INSIDE]};
256
$1
257
};
@@ -276,7 +278,8 @@ sub ExecuteCommand {
276
278
277
279
# TODO add a pound line to this eval
280
281
282
283
284
285
0 commit comments