Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Win32::MediaPlayer what the...

by menolly (Hermit)
on Jul 31, 2007 at 17:37 UTC ( [id://629879] : note . print w/replies, xml ) Need Help??

in reply to Win32::MediaPlayer what the...

You've got a while(1) loop that will never end. Someting like while($winmm->pos(1) < $winmm->length(1)) will likely work better.