Changeset 2063

Show
Ignore:
Timestamp:
10/29/06 03:06:26
Author:
miyagawa
Message:

allow currency USD

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/currency

    r1959 r2063  
    1414my $stuff = join ' ', @ARGV; 
    1515my($quant, $currency) = split /\s+/, $stuff; 
    16 if ($quant =~ /^\w{3}$/ && $currency =~ /^[\d\,\.]+$/) { 
     16if ($quant =~ /^\w{3}$/ && $currency =~ /^[\d\,\.]*$/) { 
    1717    ($quant, $currency) = ($currency, $quant); 
     18    $quant ||= 1; 
    1819} 
    1920