lib/DNS/Vi.pm
changeset 62 aff0448cbef9
parent 61 bedb2cce973e
child 63 df6ce1a4c43b
equal deleted inserted replaced
61:bedb2cce973e 62:aff0448cbef9
    56                       data   => $+{data},
    56                       data   => $+{data},
    57                 );
    57                 );
    58                 next if $rrset{rrtype} ~~ $arg{-skip};
    58                 next if $rrset{rrtype} ~~ $arg{-skip};
    59 
    59 
    60                 if ($rrset{rrtype} eq 'SOA') {
    60                 if ($rrset{rrtype} eq 'SOA') {
    61                     next if $soa_seen;
    61                     next if $soa_seen++;
    62                     $soa_seen = 1;
    62 		    $rrset{data} =~ s/\s+/ /g;	# squeeze spaces
    63                 }
    63                 }
    64 
    64 
    65                 # label ergänzen, wenn nicht FQDN
    65                 # label ergänzen, wenn nicht FQDN
    66                 $rrset{label} .= ".$origin"
    66                 $rrset{label} .= ".$origin"
    67                   unless substr($rrset{label}, -1) eq '.';
    67                   unless substr($rrset{label}, -1) eq '.';