Index: t/01basics.t
===================================================================
--- t/01basics.t	(revision 452)
+++ t/01basics.t	(working copy)
@@ -147,10 +147,12 @@
 ## testing dbi_debug
 
 cmp_ok($DBI::dbi_debug, '==',  0, "... DBI::dbi_debug's initial state is 0");
+my $null = "/dev/null";
+$null = "nul" if ($^O eq "MSWin32");
 
 SKIP: {
-    skip "cannot find : /dev/null", 2 unless (-e "/dev/null");	
-    DBI->trace(42,"/dev/null");
+    skip "cannot find : $null", 2 unless ($^O eq "MSWin32" || -e $null);	
+    DBI->trace(42,$null);
     cmp_ok($DBI::dbi_debug, '==', 42, "... DBI::dbi_debug is 42");
 	DBI->trace(0, undef);
     cmp_ok($DBI::dbi_debug, '==',  0, "... DBI::dbi_debug is 0");