Revision 67588d37
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 839 | 839 |
if ($places || $p[1]) {
|
| 840 | 840 |
$amount .= $d[0] |
| 841 | 841 |
. ( $p[1] || '' ) |
| 842 |
. (0 x (abs($places || 0) - length ($p[1]||''))); # pad the fraction
|
|
| 842 |
. (0 x max(abs($places || 0) - length ($p[1]||''), 0)); # pad the fraction
|
|
| 843 | 843 |
} |
| 844 | 844 |
|
| 845 | 845 |
$amount = do {
|
Auch abrufbar als: Unified diff
Form->format_amount: Warnung über negativen repeat count vermeiden
Warnung erscheint, wenn bei Konstrukten wie »'str' x $anzahl« die
$anzahl negativ ist.