Undefinierte Werte aus der Liste der "gewollten Variablen" rauswerfen, weil die Liste...

diff --git a/SL/IR.pm b/SL/IR.pm
index a6f66659e458d2df39d739ced16f777db5402267..3ebae9653489c9e9104b09e5f121e571c45a030d 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1250,6 +1250,7 @@ sub vendor_details {
   # remove id and taxincluded before copy back
   delete @$ref{qw(id taxincluded)};
 
+  @wanted_vars = grep({ $_ } @wanted_vars);
   if (scalar(@wanted_vars) > 0) {
     my %h_wanted_vars;
     map({ $h_wanted_vars{$_} = 1; } @wanted_vars);

diff --git a/SL/IS.pm b/SL/IS.pm
index cc8027b9ae0a98acc6d09f574e92eb225fe422f3..1a36e2c9acf1a6aabcb075e7a16e508000a15380 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -417,6 +417,7 @@ sub customer_details {
   # remove id and taxincluded before copy back
   delete @$ref{qw(id taxincluded)};
 
+  @wanted_vars = grep({ $_ } @wanted_vars);
   if (scalar(@wanted_vars) > 0) {
     my %h_wanted_vars;
     map({ $h_wanted_vars{$_} = 1; } @wanted_vars);