copy_xxx_with_digest: do not copy undefined values
authorDietmar Maurer <dietmar@proxmox.com>
Fri, 11 Apr 2014 10:52:48 +0000 (12:52 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Fri, 11 Apr 2014 10:52:48 +0000 (12:52 +0200)
src/PVE/Firewall.pm

index ca57a24..362dfbc 100644 (file)
@@ -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");
        }