Think about Loose Coupling | |
PerlMonks |
RE: MP3 server with IO::Socketby antihec (Sexton) |
on Jun 03, 2000 at 16:50 UTC ( [id://16182]=note: print w/replies, xml ) | Need Help?? |
There seems to be a minor issue with
the open Statement in Line 55. If you write it as open( PLAYLIST, "<playlist.m3u" ) || die "Can't open playlist: $!";, it will do what you mean. In its current form it evaluates to open PLAYLIST, ("playlist.m3u" || die);, I think. The print doesn't return 0, for me it returns undef, so I changed line 118 to unless( defined( $print_status )) to get rid of "uninitialized value" Thanks for sharing this nice code, btw! :-)
In Section
Tutorials
|
|