--- CDB_File-0.93/CDB_File.xs	2003-04-03 07:09:41 +0000
+++ CDB_File-0.93.my/CDB_File.xs	2003-09-05 10:54:24 +0000
@@ -458,7 +458,7 @@ cdb_FETCH(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
 	}
 	kp = SvPV(k, klen);
@@ -503,7 +503,7 @@ cdb_multi_get(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
 	}
 	cdb_findstart(this);
@@ -536,7 +536,7 @@ cdb_EXISTS(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_NO;
 	}
 	kp = SvPV(k, klen);
@@ -598,7 +598,7 @@ cdb_NEXTKEY(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
         }
         /* Sometimes NEXTKEY gets called before FIRSTKEY if the hash
--- CDB_File-0.93/t/01main.t	2003-04-02 14:59:50 +0000
+++ CDB_File-0.93.my/t/01main.t	2003-09-05 10:56:05 +0000
@@ -2,7 +2,7 @@ use strict;
 use Test;
 plan tests => 112;
 $|++;
-eval "use CDB_File";
+use CDB_File;
 ok(!$@);
 
 my %h;
@@ -18,7 +18,7 @@ untie %h;
 unlink 'bad.cdb';
 
 my %a = qw(one Hello two Goodbye);
-eval { CDB_File::create(\%a, 'good.cdb', 'good.tmp') || die "Failed to create cdb: $!" };
+CDB_File::create(%a, 'good.cdb', 'good.tmp') || die "Failed to create cdb: $!" ;
 ok("$@", '', "Create cdb");
 
 # Test that good file works.
@@ -72,7 +72,7 @@ unlink 'good.cdb';
 
 # Test empty file.
 %a = ();
-eval { CDB_File::create(\%a, 'empty.cdb', 'empty.tmp') || die "CDB create failed" };
+eval { CDB_File::create(%a, 'empty.cdb', 'empty.tmp') || die "CDB create failed" };
 ok(!$@, 1, "No errors creating cdb");
 
 tie(%h, "CDB_File", 'empty.cdb') and ok(1, 1, "Tie new empty cdb");
@@ -184,7 +184,7 @@ unlink 'repeat.cdb';
 
 # Regression test - dumps core in 0.6.
 %a = ('one', '');
-ok(CDB_File::create(\%a, 'good.cdb', 'good.tmp'));
+ok(CDB_File::create(%a, 'good.cdb', 'good.tmp'));
 ok(tie(%h, "CDB_File", 'good.cdb'));
 ok(!( $h{'zero'} or $h{'one'} ));