Changeset 966

Show
Ignore:
Timestamp:
10/26/03 07:36:15
Author:
tanimoto
Message:

require XML::Simple ��������������������
��������������������������������������������������������

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTTP-MobileAgent/trunk/Changes

    r965 r966  
    11Revision history for Perl extension HTTP::MobileAgent 
    22 
    3 0.20  Fri Oct 24 17:57:02 JST 2003 
     30.20  Sun Oct 26 07:34:53 JST 2003 
    44        * if the environment variable DOCOMO_MAP exists, use the (xml) data indicated 
    55          for $HTTP::MobileAgent::DoCoMoDisplayMap::DisplayMap. 
  • HTTP-MobileAgent/trunk/Makefile.PL

    r962 r966  
    66        'Test::More' => 0.32, 
    77        'HTTP::Headers' => 1.43, 
    8         'XML::Simple' => 2.08, 
    98    }, 
    109); 
  • HTTP-MobileAgent/trunk/bin/makedocomomap

    r965 r966  
    5050 
    5151BEGIN { 
    52     require XML::Simple; 
    5352    if ($ENV{DOCOMO_MAP}) { 
    54         my $xml = XML::Simple->new; 
    55         eval q{$DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP});}; 
     53        eval q{ 
     54            require XML::Simple; 
     55            my $xml = XML::Simple->new; 
     56            $DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP}); 
     57        }; 
    5658        warn "using normal hash map: $@" if $@; 
    5759    } 
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/DoCoMoDisplayMap.pm

    r965 r966  
    1111 
    1212BEGIN { 
    13     require XML::Simple; 
    1413    if ($ENV{DOCOMO_MAP}) { 
    15         my $xml = XML::Simple->new; 
    16         eval q{$DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP});}; 
     14        eval q{ 
     15            require XML::Simple; 
     16            my $xml = XML::Simple->new; 
     17            $DisplayMap = $xml->XMLin($ENV{DOCOMO_MAP}); 
     18        }; 
    1719        warn "using normal hash map: $@" if $@; 
    1820    }