| … | |
… | |
| 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 > 10**12) { |
75 | if ($amount > 2**31) { |
| 76 | return "Sorry, we do not handle more than 1,000,000,000,000 units for one ".$action."."; |
76 | return "Sorry, we do not handle that kind of money 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 | } |
