Coding style

zonemaster · May 31, 2024 · 211e81c · 211e81c
1 parent 0afe50e
commit 211e81c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Zonemaster/Engine/Nameserver.pm b/lib/Zonemaster/Engine/Nameserver.pm
@@ -574,16 +574,16 @@ sub save {
 
     my $old = POSIX::setlocale( POSIX::LC_ALL, 'C' );
     my $json = JSON::PP->new->allow_blessed->convert_blessed;
-    $json = $json->canonical(1);
+    $json = $json->canonical( 1 );
 
     open my $fh, '>', $filename or die "Cache save failed: $!";
     foreach my $name ( sort keys %object_cache ) {
         foreach my $addr ( sort keys %{ $object_cache{$name} } ) {
 
             # set ID field of packets to 0
-            my %data = %{$object_cache{$name}{$addr}->cache->data};
-            foreach my $key ( keys %data){
-                $data{$key}->packet->id(0) if defined($data{$key});
+            my %data = %{ $object_cache{$name}{$addr}->cache->data };
+            foreach my $key ( keys %data ){
+                $data{$key}->packet->id( 0 ) if defined( $data{$key} );
             }
 
             say $fh "$name $addr " . $json->encode( $object_cache{$name}{$addr}->cache->data );