X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a9b2cbe24d8c27e71b0683548cf9b358cd5f724b..53d05e1f806b560e2ed3bed2cc540310aaed7d47:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 0aad56ef5..e597786ec 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -947,6 +947,10 @@ sub parse_amount {
 
   # Make sure no code wich is not a math expression ends up in eval().
   return 0 unless $amount =~ /^ [\s \d \( \) \- \+ \* \/ \. ]* $/x;
+
+  # Prevent numbers from being parsed as octals;
+  $amount =~ s{ (?<! [\d.] ) 0+ (?= [1-9] ) }{}gx;
+
   return scalar(eval($amount)) * 1 ;
 }