From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 11 Feb 2009 16:05:03 +0000 (+0000)
Subject: One more win32 tewak by chorny
X-Git-Tag: v0.08011~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2011fcb025c3357b657e40d21453b88ed911346d;p=dbsrgits%2FDBIx-Class.git

One more win32 tewak by chorny
---

diff --git a/Makefile.PL b/Makefile.PL
index 5089305..4715308 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -42,16 +42,10 @@ auto_install;
 # Have all prerequisites, check DBD::SQLite sanity
 if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ) {
 
-  my $pid = fork();
-  if (not defined $pid) {
-      die "Unable to fork(): $!";
-  }
-  elsif (! $pid) {
-
-      # Win32 does not have real fork()s so a segfault will bring
-      # everything down. Warn about it.
-      if ($^O eq 'MSWin32') {
-        print <<'EOW';
+  # Win32 does not have real fork()s so a segfault will bring
+  # everything down. Warn about it.
+  if ($^O eq 'MSWin32') {
+    print <<'EOW';
 
 ######################################################################
 #                                                                    #
@@ -74,7 +68,13 @@ if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ) {
 ######################################################################
 
 EOW
-      }
+  }
+
+  my $pid = fork();
+  if (not defined $pid) {
+      die "Unable to fork(): $!";
+  }
+  elsif (! $pid) {
 
       require DBI;
       for (1 .. 100) {