copy_xxx_with_digest: do not copy undefined values

diff --git a/src/PVE/Firewall.pm b/src/PVE/Firewall.pm
index ca57a2437e8b8f87c36224a1416c23d0c7bbddea..362dfbc5ace4666be8aa308a0bf193f13aafb8e0 100644 (file)
--- a/src/PVE/Firewall.pm
+++ b/src/PVE/Firewall.pm
@@ -792,6 +792,7 @@ sub copy_opject_with_digest {
     my $res = {};
     foreach my $k (sort keys %$object) {
        my $v = $object->{$k};
+       next if !defined($v);
        $res->{$k} = $v;
        $sha->add($k, ':', $v, "\n");
     }
@@ -813,6 +814,7 @@ sub copy_list_with_digest {
        my $data = {};
        foreach my $k (sort keys %$entry) {
            my $v = $entry->{$k};
+           next if !defined($v);
            $data->{$k} = $v;
            $sha->add($k, ':', $v, "\n");
        }