Re^4: Do I need/want to close __DATA_

Putting do directly before eof is dangerous. When I try it, it warns:

do "1" failed, '.' is no longer in @INC; did you mean do "./1"? at ./1.pl line 9.

because I have a file named 1 in the current directory, and eof local *%; returns 1.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^4: Do I need/want to close __DATA__? Select or Download Code

Replies are listed 'Best First'.
Re^5: Do I need/want to close __DATA__? by haukex (Archbishop) on Apr 13, 2020 at 18:22 UTC
do "1" failed, '.' is no longer in @INC Oops, you're right, `do EXPR` is certainly not what I meant to do, my mistake. I guess a `sub` probably is cleanest, though something like `{my $x=eof local !}` still works. Minor edits.*	[reply] [d/l] [select]