Changeset 1952

Show
Ignore:
Timestamp:
09/14/06 16:44:29
Author:
miyagawa
Message:

uppercase support

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/currency

    r1951 r1952  
    1919} 
    2020 
    21 my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to); 
     21$currency = uc($currency); 
     22my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to) or exit; 
    2223print "$quant $currency = $how $to\n"; 
    23  
    24