Index: /trunk/DNSDB.pm
===================================================================
--- /trunk/DNSDB.pm	(revision 777)
+++ /trunk/DNSDB.pm	(revision 778)
@@ -5660,6 +5660,7 @@
     my $res = Net::DNS::Resolver->new;
     $res->nameservers($ifrom);
-    my ($origsoa) = rr($res, $zone, 'SOA');
-    my $ser = $origsoa->{serial};
+    my $soaq = $res->query($zone, "SOA");
+    die "Error retrieving SOA for $zone: ".$res->errorstring."\n" if !$soaq;
+    my $ser = ($soaq->answer)[0]->{serial}
     if ($args{rwsoa}) {
       if (!$args{keepserial}) {