Skip Menu |

This queue is for tickets about the Term-Prompt CPAN distribution.

Report information
The Basics
Id: 45526
Status: open
Worked: 15 min
Priority: 0/
Queue: Term-Prompt

People
Owner: Nobody in particular
Requestors: christian.mercier [...] r2000.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.04
Fixed in: (no value)



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+))?$/) {
El Mar Abr 28 11:59:09 2009, chris009 escribió: Show quoted text
> 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+))?$/) {
I've fixed this in my fork on github: https://github.com/ntovar/Term-Prompt