This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
taint.t shouldn't fail where IPC::SysV unavailable
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 19 Mar 2000 17:40:20 +0000 (17:40 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 19 Mar 2000 17:40:20 +0000 (17:40 +0000)
p4raw-id: //depot/perl@5830

t/op/taint.t

index c32a1c4..acc1c3d 100755 (executable)
@@ -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";