--- a/t/10-dnsvi.t	Wed Jan 21 21:50:27 2015 +0100
+++ b/t/10-dnsvi.t	Wed Jan 21 23:07:35 2015 +0100
@@ -126,9 +126,9 @@
 	    }
         }
 
-        my ($added, $deleted) = delta(\@zone, \@zone);
-        is @$added,   0 => 'nothing added';
-        is @$deleted, 0 => 'nothing deleted';
+	my %delta = delta(\@zone, \@zone);
+        is @{$delta{add}}, 0 => 'nothing added';
+        is @{$delta{del}}, 0 => 'nothing deleted';
       }
 }