Changeset 964

Show
Ignore:
Timestamp:
10/24/03 19:53:34
Author:
tanimoto
Message:

$Data::Dumper::Terse = 1;

Files:

Legend:

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

    r962 r964  
    3636    } 
    3737    $Data::Dumper::Indent = 1; 
    38     printf <<'TEMPLATE', Data::Dumper->Dump([ $map ], [ qw(DisplayMap) ]); 
     38    $Data::Dumper::Terse  = 1; 
     39    printf <<'TEMPLATE', Data::Dumper->Dump([ $map ]); 
    3940package HTTP::MobileAgent::DoCoMoDisplayMap; 
    4041# This file is autogenerated by makedocomomap 
     
    5253    if ($ENV{DoCoMoMap}) { 
    5354        my $xml = XML::Simple->new; 
    54         $DisplayMap = $xml->XMLin($ENV{DoCoMoMap}); 
     55        eval q{$DisplayMap = $xml->XMLin($ENV{DoCoMoMap});}; 
     56        warn "using normal hash map: $@" if $@; 
    5557    } 
    5658} 
    5759 
    58 %s 
     60$DisplayMap ||= %s 
    5961 
    60621;