Skip to content

Instantly share code, notes, and snippets.

@selenamarie
Forked from rbuels/foo.pl
Created March 8, 2010 21:44
Show Gist options
  • Save selenamarie/325789 to your computer and use it in GitHub Desktop.
Save selenamarie/325789 to your computer and use it in GitHub Desktop.
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment