Subject: | Invalid floating point value |
If trying to enter a floating point value with more than one digit after
the decimal point, i get a "Invalid floating point value" error.
this modification works:
if ( $repl =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d)\d*?([Ee]([+-]?\d+))?$/) {
instead of :
if ( $repl =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d)?([Ee]([+-]?\d+))?$/) {