| Subject: | Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/5.8.6/LWP/Charset.pm line 83 |
This program causes the module to give a pattern match failure:
#!/usr/bin/perl -wT
use strict;
use LWP::UserAgent;
use LWP::Charset;
my $response = LWP::UserAgent->new()->get("http://www.brass.ch/sbbv/index.htm");
print "Charset is " . LWP::Charset::getCharset($response) . "\n";