Changeset 1689

Show
Ignore:
Timestamp:
12/09/05 06:05:40
Author:
miyagawa
Message:

allow upper case rel value; added tests; 0.02 release

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WWW-Blog-Metadata-MobileLinkDiscovery/trunk/Changes

    r1687 r1689  
    11Revision history for Perl extension WWW::Blog::Metadata::MobileLinkDiscovery 
     2 
     30.02  Thu Dec  8 21:01:50 UTC 2005 
     4        - Support case-insensitive ness of 'rel' attribute 
     5        - Added tests 
    26 
    370.01  Mon Oct 31 17:08:38 2005 
  • WWW-Blog-Metadata-MobileLinkDiscovery/trunk/MANIFEST

    r1687 r1689  
    33Makefile.PL 
    44MANIFEST                        This list of files 
     5META.yml                        Module meta-data (added by MakeMaker) 
    56t/00_compile.t 
     7t/01_mobile.t 
     8t/sample.html 
  • WWW-Blog-Metadata-MobileLinkDiscovery/trunk/lib/WWW/Blog/Metadata/MobileLinkDiscovery.pm

    r1687 r1689  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.01'; 
     5$VERSION = '0.02'; 
    66 
    77use WWW::Blog::Metadata; 
     
    1313    my $class = shift; 
    1414    my($meta, $tag, $attr, $base_uri) = @_; 
    15     if ($tag eq 'link' && $attr->{rel} eq 'alternate' && $attr->{media} =~ /handheld/) { 
     15    if ($tag eq 'link' && $attr->{rel} && lc($attr->{rel}) eq 'alternate' && $attr->{media} =~ /handheld/) { 
    1616        my %media = map { s/[^a-zA-Z0-9\-].*$//; ($_ => 1) } 
    1717            split /,\s*/, $attr->{media};