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 ; 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;