# HG changeset patch
# User Heiko <hs@schlittermann.de>
# Date 1401886065 -7200
# Node ID 3c801b79db21fd388cb49caf5da17c7a211029a2
# Parent  cd2986b6066fc3512e05801bb02c3810959bfbe3
label size (sort numerically to find the longest label)

diff -r cd2986b6066f -r 3c801b79db21 lib/DNS/Vi.pm
--- a/lib/DNS/Vi.pm	Wed Jun 04 14:42:14 2014 +0200
+++ b/lib/DNS/Vi.pm	Wed Jun 04 14:47:45 2014 +0200
@@ -137,8 +137,8 @@
     my @out;
     my $origin = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{label};
     my $ttl    = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{ttl};
-    my $len1 = (sort map { index $_->{label}, '.' } @zone)[-1];
-    my $len2 = (sort map { length $_->{rrtype} } @zone)[-1];
+    my $len1 = (sort { $a <=> $b } map { index $_->{label}, '.' } @zone)[-1];
+    my $len2 = (sort { $a <=> $b } map { length $_->{rrtype} } @zone)[-1];
     push @out, "\$ORIGIN $origin", "\$TTL " . ttl2h($ttl);
 
     my $print = sub {