diff --git a/lib/RevBank/Products.pm b/lib/RevBank/Products.pm index 3eddb9b..48abf6d 100644 --- a/lib/RevBank/Products.pm +++ b/lib/RevBank/Products.pm @@ -154,7 +154,7 @@ sub read_products($filename = "revbank.products", $default_contra = "+sales/prod next if $id =~ /^\+/; my $product = $products{$id}; - my $tag_price = $product->{price} || 0; + my $tag_price = $product->{price} || RevBank::Amount->new(0); my $hidden = 0; my @seen = ($product);