In article <[EMAIL PROTECTED]>, Kevin Pfeiffer wrote:
[...]
>       unless ($input =~ /^[^\D]+/ or $input eq '') {

While messing around with the valid '' input problem I see I obfuscated the 
regex. I think this will do just fine:

unless ($input =~ /^\d+/ or $input eq '') {


-- 
Kevin Pfeiffer
International University Bremen

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to