Syntactic Confectionery Delight | |
PerlMonks |
comment on |
( [id://3333]=superdoc: 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 reply to RE: MP3 server with IO::Socket
by antihec
|
|