Index: /branches/cname-collision/t/cname.t
===================================================================
--- /branches/cname-collision/t/cname.t	(revision 992)
+++ /branches/cname-collision/t/cname.t	(revision 993)
@@ -4,4 +4,7 @@
 # Template records mean not all published records are natively present in the DB
 
+use strict;
+use warnings;
+
 use Test::More;
 use Data::Dumper;
@@ -12,8 +15,10 @@
 my $dtest = DNSTest::new;
 
-my $code,$msg;
+my ($code,$msg);
 my $rectype = 5;
 my $newname;
 my $newval;
+my $expirystamp;
+my $rcount;
 
 
@@ -238,5 +243,5 @@
         my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 4 AND host = '$newname' ".
 		"AND stampactive = 't' AND expires = 'f'");
-        ok( $newstamp == $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
+        ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
       } else {
         print "not ok: $msg";