Fix IPC::SysV test under VC++ 6.0 (Thanks to Steve Hay)
authorLeon Brocard <acme@astray.com>
Tue, 2 Oct 2007 06:49:52 +0000 (06:49 +0000)
committerLeon Brocard <acme@astray.com>
Tue, 2 Oct 2007 06:49:52 +0000 (06:49 +0000)
git-svn-id: http://perl5005.googlecode.com/svn/trunk@15 e77bdc90-ac31-0410-a84a-cbf48518d05f

Changes
t/lib/ipc_sysv.t

index af2712c..660d4a0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -80,6 +80,11 @@ Version 5.005_04        Fourth maintenance release of 5.005
 
 
 ____________________________________________________________________________
+[      ] By: acme                                  on 2007/09/01  21:07:49
+        Log: Fix IPC::SysV test under VC++ 6.0 (Thanks to Steve Hay)
+     Branch: maint-5.005/perl
+           ! t/lib/ipc_sysv.t
+____________________________________________________________________________
 [      ] By: acme                                  on 2007/09/01  19:31:20
         Log: For newer FreeBSDs the return type of malloc() and free()
              is being guessed wrong because the 5.005 configure doesn't
index ade423c..dd04cc8 100755 (executable)
@@ -7,17 +7,19 @@ BEGIN {
     require 'test.pl';
 }
 
-if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
-    skip_all('IPC::SysV was not built');
-}
-elsif ($Config{'d_sem'} ne 'define') {
-    skip_all('$Config{d_sem} undefined');
-}
-elsif ($Config{'d_msg'} ne 'define') {
-    skip_all('$Config{d_msg} undefined');
-}
-else {
-    plan( tests => 17 );
+BEGIN {
+    if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
+       skip_all('IPC::SysV was not built');
+    }
+    elsif ($Config{'d_sem'} ne 'define') {
+       skip_all('$Config{d_sem} undefined');
+    }
+    elsif ($Config{'d_msg'} ne 'define') {
+       skip_all('$Config{d_msg} undefined');
+    }
+    else {
+       plan( tests => 17 );
+    }
 }
 
 # These constants are common to all tests.