--- CBOR-XS/t/50_rfc.t	2013/10/26 10:41:12	1.1
+++ CBOR-XS/t/50_rfc.t	2013/10/26 11:11:01	1.2
@@ -8,6 +8,8 @@
 binmode DATA;
 binmode STDOUT, ":utf8";
 
+my $test;
+
 sub ok($;$) {
    print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n";
 }