… | |
… | |
70 | |
70 | |
71 | return "You can not $action fractions." |
71 | return "You can not $action fractions." |
72 | unless $amount =~ /^\d+$/; |
72 | unless $amount =~ /^\d+$/; |
73 | |
73 | |
74 | # First check for possible overflow and user stupidity |
74 | # First check for possible overflow and user stupidity |
75 | if ($amount > 10000) { |
75 | if ($amount > 100000) { |
76 | return "Sorry, we do not handle more than 10000 units for one ".$action."."; |
76 | return "Sorry, we do not handle more than 100000 units for one ".$action."."; |
77 | } elsif ($amount == 0) { |
77 | } elsif ($amount == 0) { |
78 | return "You can not ".$action." nothing."; |
78 | return "You can not ".$action." nothing."; |
79 | } elsif ($amount < 0) { |
79 | } elsif ($amount < 0) { |
80 | return "You can not ".$action." negative values."; |
80 | return "You can not ".$action." negative values."; |
81 | } |
81 | } |