'bit\.ly/[[:alnum:]]+',
'tinyurl\.com/[[:alnum:]]+',
);
- my $ua = LWP::UserAgent->new(agent => 'Mozilla');
+ my $ua = LWP::UserAgent->new(agent => 'Mozilla', max_redirect => 0);
my $i = 100;
OUTER: while (($os ne $s) and ($i > 0)) {
write_debug("Found %s", $matched);
$res = $ua->head($matched);
- if ($res->is_success()) {
- my $new = $res->request()->uri();
+ if ($res->is_redirect()) {
+ my $new = $res->headers()->header("Location");
write_debug("Replacing %s with %s", $matched, $new);
$s =~ s/$matched/$new/;