From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 19 Mar 2000 17:40:20 +0000 (+0000)
Subject: taint.t shouldn't fail where IPC::SysV unavailable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9d1c4398df61d65824ee27ce4615ba7484e4d23;p=p5sagit%2Fp5-mst-13.2.git

taint.t shouldn't fail where IPC::SysV unavailable

p4raw-id: //depot/perl@5830
---

diff --git a/t/op/taint.t b/t/op/taint.t
index c32a1c4..acc1c3d 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -24,6 +24,11 @@ BEGIN {
       $ENV{PATH} = $ENV{PATH};
       $ENV{TERM} = $ENV{TERM} ne ''? $ENV{TERM} : 'dummy';
   }
+  if ($Config{d_shm} || $Config{d_msg}) {
+     require IPC::SysV;
+     IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU
+			 S_IRWXG S_IRWXO));
+  }
 }
 
 my $Is_VMS = $^O eq 'VMS';
@@ -609,8 +614,7 @@ else {
 # test shmread
 {
     if ($Config{d_shm}) {
-	use IPC::SysV qw(IPC_PRIVATE IPC_RMID S_IRWXU S_IRWXG S_IRWXO);
-
+	no strict 'subs';
 	my $sent = "foobar";
 	my $rcvd;
 	my $size = 2000;
@@ -644,8 +648,7 @@ else {
 # test msgrcv
 {
     if ($Config{d_msg}) {
-	use IPC::SysV qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU);
-
+	no strict 'subs';
 	my $id = msgget(IPC_PRIVATE, IPC_CREAT | S_IRWXU);
 
 	my $sent      = "message";