[Bast-commits] r5455 - DBIx-Class/0.08/branches/stopgap

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-11 16:05:03 +0000 (Wed, 11 Feb 2009)
New Revision: 5455

Modified:
   DBIx-Class/0.08/branches/stopgap/Makefile.PL
Log:
One more win32 tewak by chorny

Modified: DBIx-Class/0.08/branches/stopgap/Makefile.PL
===================================================================
--- DBIx-Class/0.08/branches/stopgap/Makefile.PL	2009-02-11 15:07:28 UTC (rev 5454)
+++ DBIx-Class/0.08/branches/stopgap/Makefile.PL	2009-02-11 16:05:03 UTC (rev 5455)
@@ -42,17 +42,11 @@
 # 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';
-
 ######################################################################
 #                                                                    #
 # A short stress-testing of DBD::SQLite will follow. If you have a   #
@@ -74,8 +68,14 @@
 ######################################################################
 
 EOW
-      }
+  }
 
+  my $pid = fork();
+  if (not defined $pid) {
+      die "Unable to fork(): $!";
+  }
+  elsif (! $pid) {
+
       require DBI;
       for (1 .. 100) {
           my $dbh;