changeset 156 | 030f377af8d5 |
parent 112 | 5a51a3757f5e |
child 157 | 548c7695897d |
155:24ba8266112e | 156:030f377af8d5 |
---|---|
101 my ( $r, @a ); |
101 my ( $r, @a ); |
102 unless ( defined( $r = $res->query( $z, 'rrsig' ) ) |
102 unless ( defined( $r = $res->query( $z, 'rrsig' ) ) |
103 && ( @a = $r->answer ) ) |
103 && ( @a = $r->answer ) ) |
104 { |
104 { |
105 |
105 |
106 print "No RRSIGs found for zone '$z'"; |
106 print "No RRSIGs found for zone '$z'\n"; |
107 exit $rv->{UNKNOWN}; |
107 exit $rv->{UNKNOWN}; |
108 |
108 |
109 } |
109 } |
110 |
110 |
111 for my $rrsig (@a) { |
111 for my $rrsig (@a) { |