X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7915128cc09f9756439ab9216a82ada3870893c3..67588d37a1fcdaed2ffdac55feaea26e488537d4:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index c59669c41..c29097289 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -839,7 +839,7 @@ sub format_amount {
   if ($places || $p[1]) {
     $amount .= $d[0]
             .  ( $p[1] || '' )
-            .  (0 x (abs($places || 0) - length ($p[1]||'')));           # pad the fraction
+            .  (0 x max(abs($places || 0) - length ($p[1]||''), 0));     # pad the fraction
   }
 
   $amount = do {