From 3441f644ff3b3280645ab18e03db1a54456ec1b6 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 13 Aug 2009 11:39:39 +0000
Subject: [PATCH] DBD-SQLite: made the debugger test non-interactive

---
 t/rt_48393_debug_panic_with_commit.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/t/rt_48393_debug_panic_with_commit.t b/t/rt_48393_debug_panic_with_commit.t
index 34eb0ea..66880ea 100644
--- a/t/rt_48393_debug_panic_with_commit.t
+++ b/t/rt_48393_debug_panic_with_commit.t
@@ -25,7 +25,12 @@ open my $fh, '>', $file;
 print $fh <DATA>;
 close $fh;
 
-ok !system("$^X -Mblib -d $file");
+if ($^O eq 'MSWin32') {
+	ok !system(qq{set PERLDB_OPTS="NonStop"; $^X -Mblib -d $file});
+}
+else {
+	ok !system(qq{PERLDB_OPTS="NonStop" $^X -Mblib -d $file});
+}
 
 END {
 	unlink $file if $file && -f $file;