Maybe. It doesn't loop even on 5.16.3 which is the oldest Perl easily available to me.
Update: 5.10.1 neither.
Update2: It loops in 5.6.2!
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
| [reply] [Watch: Dir/Any] [d/l] |
I always thought we need tests for snippets in perldocs too.
| [reply] [Watch: Dir/Any] |
Win8 Strawberry 5.8.9.5 (32) Mon 10/11/2021 13:52:47
C:\@Work\Perl\monks
>perl -wMstrict -le "my $f = 'foo'; print pos $f while $f =~ m{ ( o? )
+* }gx;"
0
3
3
Give a man a fish: <%-{-{-{-<
| [reply] [Watch: Dir/Any] [d/l] [select] |