From ba6a22c375734ee2c29e3e4e418f14349f8f02a3 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Wed, 24 Aug 2011 02:31:35 +0000
Subject: [PATCH] skip count was wrong, and SKIP label should be needed;
 (http://www.cpantesters.org/cpan/report/b764d8a6-ac8f-11e0-a4ca-75a0d72a4e93)

---
 t/08_busy.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/t/08_busy.t b/t/08_busy.t
index 1d0f9cd..049abcf 100644
--- a/t/08_busy.t
+++ b/t/08_busy.t
@@ -75,8 +75,11 @@ foreach my $call_func (@CALL_FUNCS) {
 	my $pid = fork;
 	if (!defined($pid)) {
 	    # fork failed
-	    skip("No fork here", 1);
-	    skip("No fork here", 1);
+	    SKIP: {
+	        skip("No fork here", 3);
+	    }
+	    $dbh->disconnect;
+	    unlink $dbfile;
 	} elsif (!$pid) {
 	    # child