| … | |
… | |
| 56 | |
56 | |
| 57 | my $pay = $amount * $coin->value; |
57 | my $pay = $amount * $coin->value; |
| 58 | |
58 | |
| 59 | # First check for possible overflow and user stupidity |
59 | # First check for possible overflow and user stupidity |
| 60 | if ($pay > 2**30) { |
60 | if ($pay > 2**30) { |
| 61 | return "Sorry, we do not handle that kind of money for one $action."; |
61 | return "Sorry, we do not handle that amount of money for one $action."; |
| 62 | } elsif ($pay == 0) { |
62 | } elsif ($pay == 0) { |
| 63 | return "You can not $action nothing."; |
63 | return "You can not $action nothing."; |
| 64 | } elsif ($pay < 0) { |
64 | } elsif ($pay < 0) { |
| 65 | return "You can not $action negative values."; |
65 | return "You can not $action negative values."; |
| 66 | } |
66 | } |
