diff options
| -rwxr-xr-x | challenge-287/matthias-muth/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-287/matthias-muth/perl/ch-2.pl b/challenge-287/matthias-muth/perl/ch-2.pl index 757747f5d3..1dcd770c7d 100755 --- a/challenge-287/matthias-muth/perl/ch-2.pl +++ b/challenge-287/matthias-muth/perl/ch-2.pl @@ -16,7 +16,7 @@ sub valid_number( $str ) { return $str =~ /^$RE{num}{real}$/; } -sub valid_number_usimg_re( $str ) { +sub valid_number_using_re( $str ) { return $str =~ /^ [+-]? (?: \.\d+ | \d+(?:\.\d*)? ) (?: [Ee] [+-]? \d+ )? $/xa; } |