Inspired by the Advanced Perl Programming book, I'm trying to use a POE module for the first time. As part of my script I also want to download a small web page, so I'm trying to use LWP::Simple. When I run my script, it gets to the LWP::Simple::get call and hangs. I have to use task manager to kill it (the cmd prompt won't respond to Ctrl-C).
I took out most of my code and reproduced the problem with this simple script:
my $url = "http://wfmu.org/listen.m3u?show=21788&archive=32709";
print "getting $url ...\n";
my $content = LWP::Simple::get($url);
die "Problem!" unless defined $content;
print "content: $content\n";
use POE qw(Component::RSSAggregator); # bad line
With "bad line" commented out, it works:
With "bad line" present, it hangs:
It works if I just "use POE", so maybe it's specifically the PoCo::RSSAggregator module that's the problem.?
I've poked around in the module source a very little bit looking for the problem, but I didn't see anything. Being completely unfamiliar with how POE works, I thought I'd ask for help before spending a lot of time on something obvious that I might be overlooking.
Thanks for any suggestions,