v6.0.3: add warning for duplicates in revbank.products

plugins/products

@@ -91,16 +91,20 @@ sub read_products() {
                 next;
             }
         }
-        $products{$_} = {
+        for my $id (@ids) {
-            id          => $ids[0],
+            warn "Product '$id' redefined at $filename line $linenr (original at line $products{$id}{line}).\n" if exists $products{$id};
-            price       => $sign * $price,
+
-            percent     => $percent,
+            $products{$id} = {
-            description => $desc,
+                id          => $ids[0],
-            contra      => $contra || $default_contra,
+                price       => $sign * $price,
-            _addon_ids  => \@addon_ids,
+                percent     => $percent,
-            line        => $linenr,
+                description => $desc,
-            tags        => \%tags,
+                contra      => $contra || $default_contra,
-        } for @ids;
+                _addon_ids  => \@addon_ids,
+                line        => $linenr,
+                tags        => \%tags,
+            };
+        }
     }
 
     PRODUCT: for my $product (values %products) {

revbank

@@ -16,7 +16,7 @@ use RevBank::Messages;
 use RevBank::Cart;
 use RevBank::Prompt;
 
-our $VERSION = "6.0.2";
+our $VERSION = "6.0.3";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );