I hear all, I see all :P

Hi Corion and Alena

I've heard of pos() related bugs , but I don't think they can be tripped by this code
Bug #67140 for perl5: Perl 5.10.0 smart match with m//g fails to update pos
Bug #90680 for perl5: m//, s/// on the smart-match exception list
Bug #68564 for perl5: /g failure with zero-width patterns
Bug #72766 for perl5: pos() uses sv_pos_b2u/sv_pos_u2b is about Bug #116907 for perl5: perl doesn't handle m{}g for >= 2GB files even with largefiles and 64bitall

Simple way to guarantee no infinity loop :) change from while to foreach

for my $loop ( 1 .. length $_ ){ ## guaranteed not to infinity loop
}
[download]

If there is infinity on the server, narrow down which data, which %ENV ... pepper in extra prints, narrow it down to a subroutine ...

:)