Changeset 1947

Show
Ignore:
Timestamp:
09/14/06 00:01:44
Author:
bricas
Message:

fixed Image parsing. fixed Url. bumped ver. added Changes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WWW-OpenSearch/trunk/Changes

    r1938 r1947  
    11Revision history for Perl extension WWW::OpenSearch 
     2 
     30.08    Wed Sep 13 2006 
     4        - fix options attributes for Image 
     5        - added strict to Url object 
    26 
    370.07    Mon Sep 11 2006 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch.pm

    r1938 r1947  
    1313__PACKAGE__->mk_accessors( qw( description_url agent description ) ); 
    1414 
    15 our $VERSION = '0.07'; 
     15our $VERSION = '0.08'; 
    1616 
    1717=head1 NAME 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Description.pm

    r1938 r1947  
    221221            for my $node ( $node->get_nodelist ) { 
    222222                my $image = WWW::OpenSearch::Image->new( { 
    223                     ( map { $_ => $node->getAttributeNode( $_ )->value } qw( height width type ) ), 
     223                    ( map { my $attr = $node->getAttributeNode( $_ ); $attr ? ($_ => $attr->value) : () } qw( height width type ) ), 
    224224                    url => $node->string_value 
    225225                } ); 
  • WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Url.pm

    r1946 r1947  
    108108    if( $self->method eq 'post' ) { 
    109109        my $post = $self->params; 
    110         for( keys %macros ) { 
     110        for( keys %$macros ) { 
    111111            $post->{ $macros->{ $_ } } = $params->{ $_ }; 
    112112        }