bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Suppress warning when -cash does not yet exist

Browse source
This commit is contained in:
Juerd Waalboer 2022-06-12 02:31:29 +02:00
parent 3a07b8eadb
commit 76ef79b9ee
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/RevBank/Amount.pm
View file

@ -75,7 +75,7 @@ sub new_from_float($class, $num) {
} }
sub parse_string($class, $str) { sub parse_string($class, $str) {
$str =~ /\S/ or return undef; defined $str and $str =~ /\S/ or return undef;
my ($neg, $int, $cents) my ($neg, $int, $cents)
= $str =~ /^\s*(?:\+|(-)?)([0-9]+)?(?:[,.]([0-9]{1,2}))?\s*$/ = $str =~ /^\s*(?:\+|(-)?)([0-9]+)?(?:[,.]([0-9]{1,2}))?\s*$/