Index: branches/cname-collision/t/DNSTest.pm
===================================================================
--- branches/cname-collision/t/DNSTest.pm	(revision 960)
+++ branches/cname-collision/t/DNSTest.pm	(revision 962)
@@ -39,4 +39,8 @@
 
 sub new {
+  my $this = shift;
+  my $class = ref($this) || $this;
+  my %args = @_;
+
   $dnsdb = new DNSDB(
 	dbhost => 'localhost',
@@ -47,4 +51,6 @@
   ok( defined $dnsdb );
   ok( $dnsdb->isa('DNSDB') );
+
+  $debug = 1 if $args{debug};
 
   ## Prepare the DB