diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 16:28:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 16:28:33 +0000 |
| commit | a8a2757492ad782cc3d50ec2192d07c91c4d6336 (patch) | |
| tree | f61f98a5aa9cf2325dfa6ff8bb63e49f7c7c767d /ext/Sys | |
| parent | 90d0f5d90b114a950673a399566c8f6697172d83 (diff) | |
| download | perl-a8a2757492ad782cc3d50ec2192d07c91c4d6336.tar.gz | |
Don't run ext/Sys/Syslog/t/constants.t with taint mode, so it's
not systematically skipped
p4raw-id: //depot/perl@29176
Diffstat (limited to 'ext/Sys')
| -rw-r--r-- | ext/Sys/Syslog/t/constants.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/t/constants.t b/ext/Sys/Syslog/t/constants.t index b5d4ecb46c..b484295b29 100644 --- a/ext/Sys/Syslog/t/constants.t +++ b/ext/Sys/Syslog/t/constants.t @@ -1,8 +1,9 @@ -#!/usr/bin/perl -T +#!/usr/bin/perl use strict; use File::Spec; use Test::More; +# NB. For PERL_CORE to be set, taint mode must not be enabled my $macrosall = $ENV{PERL_CORE} ? File::Spec->catfile(qw(.. ext Sys Syslog macros.all)) : 'macros.all'; open(MACROS, $macrosall) or plan skip_all => "can't read '$macrosall': $!"; |