Re: Pragma inside grep block

Good question.

5.10.0 has the same problem:

$ perl -e'use strict; use warnings;
grep { no strict "refs"; }qw(x);
'
"no" not allowed in expression at -e line 2, at end of line
BEGIN not safe after errors--compilation aborted at -e line 2.
$ perl -e'use strict; use warnings;
grep { 0; no strict "refs"; }qw(x);
'
$
[download]

Of course,

{
    no strict "refs";
    grep {0;} qw(x);
}
[download]

would work fine, so at least there's a workaround...

Mike

Comment on Re: Pragma inside grep block Select or Download Code

Replies are listed 'Best First'.
Re^2: Pragma inside grep block by Anonymous Monk on Jul 08, 2009 at 12:16 UTC
Workaround is to add ; `grep { ;no strict 'refs'; } qw(x);` [download] but that confuse Deparse :D `perl -MO=Deparse use strict; use warnings; grep { ;no strict 'refs'; } qw(x); ^D use warnings; use strict 'refs'; grep {();} 'x'; - syntax OK` [download] Also works `grep { do{ no strict 'refs'; } } qw(x)` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Pragma inside grep block
by Anonymous Monk on Jul 08, 2009 at 12:16 UTC

grep { ;no strict 'refs'; } qw(x);
[download]

perl -MO=Deparse
use strict;
use warnings;
grep { ;no strict 'refs'; } qw(x);
^D
use warnings;
use strict 'refs';
grep {();} 'x';
- syntax OK
[download]

grep { do{ no strict 'refs'; } } qw(x)
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom