foo.pl

 my ($attr) = @$token[2];
 next unless exists $attr->{rel};
 chomp $attr->{rel};

 my @rels = split ' ', $attr->{rel};

 for my $rel (@rels) {
     if( $rel && $rel eq "hub") {



82         my ($attr) = @$token[2];
 83         next unless (exists $attr->{rel});
 84         chomp $attr->{rel};
 85         my @rels = split(' ', $attr->{rel});
 86 
 87         for my $rel (@rels) {
 88             print "BEHOLD: $rel\n";
 89             if ($rel && ($rel eq "hub")
 90                 and ($token->[1] eq 'atom:link' or $token->[1] eq 'link')) {
 91                 $hub = $attr->{href};
 92             }


BEHOLD: stylesheet
End of for loop
BEHOLD: shortcut
Use of uninitialized value in string eq at /Users/Shared/selena/www/pubsubhubbub.pl line 89.
Use of uninitialized value in string eq at /Users/Shared/selena/www/pubsubhubbub.pl line 89.