| /openbsd/gnu/usr.bin/perl/dist/Locale-Maketext/t/ |
| H A D | 20_get.t | 36 $ENV{'MYORP'} = 'Zing';
37 is( $ENV{'MYORP'}, 'Zing' );
41 delete $ENV{'MYORP'};
42 delete $ENV{'SWUZ'};
46 $ENV{'LC_ALL'} = '';
47 $ENV{'LC_MESSAGES'} = '';
48 $ENV{'REQUEST_METHOD'} = '';
49 $ENV{'LANG'} = 'Eu_MT';
50 $ENV{'LANGUAGE'} = '';
55 $ENV{'LANG'} = '';
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta/t/parse-cpan-meta/ |
| H A D | 02_api.t | 3 delete $ENV{PERL_YAML_BACKEND};
4 delete $ENV{PERL_JSON_BACKEND};
5 delete $ENV{CPAN_META_JSON_BACKEND};
6 delete $ENV{CPAN_META_JSON_DECODER};
70 local $ENV{PERL_YAML_BACKEND} if not $ENV{PERL_CORE}; # ensure we always get CPAN::META::YAML
78 local $ENV{PERL_YAML_BACKEND} if not $ENV{PERL_CORE}; # ensure we always get CPAN::META::YAML
140 local $ENV{PERL_JSON_BACKEND} if not $ENV{PERL_CORE}; # ensure we always get JSON::PP
150 local $ENV{PERL_JSON_BACKEND} if not $ENV{PERL_CORE}; # ensure we always get JSON::PP
160 local $ENV{PERL_JSON_BACKEND} if not $ENV{PERL_CORE}; # ensure we always get JSON::PP
171 local $ENV{PERL_JSON_BACKEND} = 0 if not $ENV{PERL_CORE}; # request JSON::PP
[all …]
|
| /openbsd/gnu/usr.bin/perl/dist/Env/lib/ |
| H A D | Env.pm | 107 $ENV{$$self};
113 $ENV{$$self} = $value;
115 delete $ENV{$$self};
143 $ENV{$$self} = join($sep, @temp);
148 $ENV{$$self} = '';
160 $ENV{$$self} = join($sep, @temp);
173 $ENV{$$self} = join($sep, @temp);
181 $ENV{$$self} = join($sep, @temp);
189 $ENV{$$self} = join($sep, @temp);
216 $ENV{$$self} = join($sep, @temp);
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/ |
| H A D | 140_proxy.t | 21 local $ENV{all_proxy};
22 local $ENV{ALL_PROXY};
23 local $ENV{http_proxy} = $proxy;
30 local $ENV{http_proxy} = $proxy;
37 local $ENV{http_proxy} = "localhost:8080";
46 local $ENV{all_proxy} = "http://localhost:8080";
47 local $ENV{http_proxy} = "http://localhost:8080";
48 local $ENV{https_proxy} = "http://localhost:8080";
63 local $ENV{$s} = $proxy;
77 local $ENV{REQUEST_METHOD} = 'GET';
[all …]
|
| /openbsd/gnu/usr.bin/perl/dist/PathTools/ |
| H A D | Cwd.pm | 312 $ENV{'PWD'} = $wd;
344 return $ENV{'PWD'} = $ENV{'DEFAULT'}
347 $ENV{'PWD'} = $newpwd;
352 $ENV{'PWD'} = cwd();
354 $ENV{'PWD'} = $newdir;
450 local $ENV{PWD} = $ENV{PWD} || ''; # Guard against clobberage
578 $ENV{'PWD'} = $pwd;
586 $ENV{'PWD'} = $pwd;
594 $ENV{'PWD'} = $pwd;
615 local $ENV{ENV} = '';
[all …]
|
| /openbsd/usr.sbin/ikectl/ |
| H A D | ikeca.cnf | 27 req_extensions = $ENV::REQ_EXT
31 countryName_default = $ENV::CERT_C
75 keyUsage=$ENV::CERTUSAGE
78 keyUsage=$ENV::CERTUSAGE
79 nsCertType=$ENV::NSCERTTYPE
80 subjectAltName=IP:$ENV::CERTIP
84 keyUsage=$ENV::CERTUSAGE
85 nsCertType=$ENV::NSCERTTYPE
86 subjectAltName=DNS:$ENV::CERTFQDN
102 database = $ENV::CADB
[all …]
|
| /openbsd/gnu/usr.bin/perl/dist/I18N-LangTags/t/ |
| H A D | 80_all_env.t | 9 $ENV{'MYORP'} = 'Zing'; is($ENV{'MYORP'}, 'Zing');
10 $ENV{'SWUZ'} = 'KLORTHO HOOBOY'; is($ENV{'SWUZ'}, 'KLORTHO HOOBOY');
12 delete $ENV{'MYORP'};
13 delete $ENV{'SWUZ'};
16 print "# ENV:\n";
17 foreach my $k (sort keys %ENV) {
18 my $p = $ENV{$k}; $p =~ s/\n/\n#/g;
20 print "# [end of ENV]\n#\n";
27 $ENV{$test_var} = 'Eu-MT';
36 $ENV{'REQUEST_METHOD'} = 'GET';
[all …]
|
| /openbsd/gnu/usr.bin/perl/t/op/ |
| H A D | magic.t | 95 delete $ENV{'FOO'};
202 @val1 = @ENV{keys(%ENV)};
203 @val2 = values(%ENV);
652 local %ENV;
829 $PATH = $ENV{PATH};
830 $SYSTEMROOT = $ENV{SYSTEMROOT} if exists $ENV{SYSTEMROOT}; # win32
832 $ENV{foo} = "bar";
833 %ENV = ();
853 $ENV{foo} = *TODO;
858 $ENV{foo} = $ref;
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/podlators/t/man/ |
| H A D | devise-date.t | 25 local $ENV{SOURCE_DATE_EPOCH} = undef;
26 local $ENV{POD_MAN_DATE} = undef;
38 local $ENV{POD_MAN_DATE} = '2014-01-01';
42 local $ENV{POD_MAN_DATE} = q{};
46 local $ENV{POD_MAN_DATE} = undef;
47 local $ENV{SOURCE_DATE_EPOCH} = 1439390140;
51 local $ENV{POD_MAN_DATE} = '2013-01-01';
52 local $ENV{SOURCE_DATE_EPOCH} = 1482676620;
59 local $ENV{POD_MAN_DATE} = undef;
60 local $ENV{SOURCE_DATE_EPOCH} = '1482676620B';
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/ |
| H A D | Utils.pm | 57 $ENV{$key} = $default_env_keys{$key} unless $ENV{$key};
61 if( exists $ENV{$key} ) {
65 delete $ENV{$key};
72 $ENV{$key} = $val;
142 if $ENV{PERL_CORE};
162 my $old5lib = $ENV{PERL5LIB};
174 push @libs, $ENV{PERL5LIB} if exists $ENV{PERL5LIB};
181 $ENV{PERL5LIB} = $old5lib;
184 delete $ENV{PERL5LIB};
226 $make = $ENV{MAKE} if exists $ENV{MAKE};
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/JSON-PP/t/ |
| H A D | 099_binary.pl | 7 if (defined(my $n= $ENV{JSONPP_CHUNK})) {
8 $ENV{JSONPP_FROM}= 1 + $n * 48;
9 $ENV{JSONPP_TO}= (1 + $n) * 48;
11 $ENV{JSONPP_FROM} = 1 unless defined $ENV{JSONPP_FROM};
12 $ENV{JSONPP_TO} = 768 unless defined $ENV{JSONPP_TO};
14 BEGIN { plan tests => 32 * ($ENV{JSONPP_TO} - $ENV{JSONPP_FROM} + 1) };
16 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
45 srand $ENV{JSONPP_FROM}; # doesn't help too much, but its at least more deterministic
47 for ($ENV{JSONPP_FROM} .. $ENV{JSONPP_TO}) {
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/lib/MakeMaker/Test/ |
| H A D | Utils.pm | 40 if( exists $ENV{$key} ) {
44 delete $ENV{$key};
51 $ENV{$key} = $val;
121 if $ENV{PERL_CORE};
141 my $old5lib = $ENV{PERL5LIB};
142 my $had5lib = exists $ENV{PERL5LIB};
144 if ($ENV{PERL_CORE}) {
157 push @libs, $ENV{PERL5LIB} if exists $ENV{PERL5LIB};
165 $ENV{PERL5LIB} = $old5lib;
168 delete $ENV{PERL5LIB};
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/ |
| H A D | Env.pm | 46 local $ENV{PERL5LIB};
47 local $ENV{PERLLIB};
49 my $perl = $ENV{HARNESS_PERL} || $^X;
63 = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) );
79 = $ENV{HARNESS_VERBOSE}
80 ? $ENV{HARNESS_VERBOSE} !~ /\d/
82 : $ENV{HARNESS_VERBOSE}
87 timer => $ENV{HARNESS_TIMER} || 0,
89 color => $ENV{HARNESS_COLOR} || 0,
91 ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0,
[all …]
|
| /openbsd/gnu/usr.bin/perl/dist/PathTools/t/ |
| H A D | tmpdir.t | 15 my %look_env = %ENV;
17 my $num_keys = keys %ENV;
19 is scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
22 skip("Can't make list assignment to %ENV on this system", 1)
25 local %ENV;
27 is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
31 is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");
38 local $ENV{TMPDIR} = $_->catfile($_->curdir, 'lib');
39 -d $ENV{TMPDIR} && -w _
42 $ENV{TMPDIR} = $_->catfile($_->curdir, 't');
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/ |
| H A D | Harness.pm | 45 $ENV{HARNESS_ACTIVE} = 1;
46 $ENV{HARNESS_VERSION} = $VERSION;
51 delete $ENV{HARNESS_ACTIVE};
52 delete $ENV{HARNESS_VERSION};
58 our $Verbose = $ENV{HARNESS_VERBOSE} || 0;
61 our $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
115 local $ENV{HARNESS_OPTIONS};
150 local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC};
300 local $ENV{PERL5LIB};
301 local $ENV{PERLLIB};
[all …]
|
| /openbsd/gnu/llvm/llvm/utils/lit/tests/Inputs/shtest-env/ |
| H A D | mixed.txt | 4 # RUN: | FileCheck --check-prefix=CHECK-ENV-1 %s
9 # RUN: | FileCheck --check-prefix=CHECK-ENV-MULTIPLE %s
11 # CHECK-ENV-1: A_FOO = 999
12 # CHECK-ENV-1-NOT: FOO
14 # CHECK-ENV-MULTIPLE: A_FOO = 1
15 # CHECK-ENV-MULTIPLE-NOT: BAR
16 # CHECK-ENV-MULTIPLE: B_BAR = 2
17 # CHECK-ENV-MULTIPLE: C_OOF = 3
18 # CHECK-ENV-MULTIPLE-NOT: FOO
|
| H A D | env-u.txt | 4 # RUN: | FileCheck --check-prefix=CHECK-ENV-PRESET %s
9 # RUN: | FileCheck --check-prefix=CHECK-ENV-UNSET-1 %s
14 # RUN: | FileCheck --check-prefix=CHECK-ENV-UNSET-MULTIPLE %s
16 # CHECK-ENV-PRESET: BAR = 2
17 # CHECK-ENV-PRESET: FOO = 1
19 # CHECK-ENV-UNSET-1: BAR = 2
20 # CHECK-ENV-UNSET-1-NOT: FOO
22 # CHECK-ENV-UNSET-MULTIPLE-NOT: BAR
23 # CHECK-ENV-UNSET-MULTIPLE-NOT: FOO
|
| /openbsd/gnu/usr.bin/perl/cpan/podlators/t/text/ |
| H A D | termcap.t | 28 local $ENV{COLUMNS} = 80;
29 local $ENV{TERM} = 'xterm';
30 local $ENV{TERMPATH} = File::Spec->catfile('t', 'data', 'termcap');
31 local $ENV{TERMCAP} = 'xterm:co=#80:do=^J:md=\\E[1m:us=\\E[4m:me=\\E[m';
46 local $ENV{TERM} = 'unknown';
47 local $ENV{TERMCAP} = 'unknown:co=#80:do=^J';
52 local $ENV{TERM} = 'fake-test-terminal';
53 local $ENV{TERMCAP} = 'fake-test-terminal:md=\\E[1m:me=\\E[m';
|
| /openbsd/gnu/usr.bin/perl/ext/File-Glob/t/ |
| H A D | basic.t | 40 $ENV{PATH} = "/bin";
41 delete @ENV{qw(BASH_ENV CDPATH ENV IFS)};
96 local $ENV{HOME};
97 delete $ENV{HOME};
98 local $ENV{USERPROFILE};
99 delete $ENV{USERPROFILE};
105 local $ENV{HOME};
106 delete $ENV{HOME};
107 local $ENV{USERPROFILE};
114 my $home = exists $ENV{HOME} ? $ENV{HOME}
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/Term-ANSIColor/t/module/ |
| H A D | basic.t | 18 delete $ENV{ANSI_COLORS_ALIASES};
19 delete $ENV{ANSI_COLORS_DISABLED};
20 delete $ENV{NO_COLOR};
75 delete $ENV{ANSI_COLORS_DISABLED};
82 delete $ENV{ANSI_COLORS_DISABLED};
92 delete $ENV{ANSI_COLORS_DISABLED};
95 local $ENV{NO_COLOR} = 1;
100 local $ENV{NO_COLOR} = q{};
104 delete $ENV{NO_COLOR};
317 local $ENV{NO_COLOR} = 1;
[all …]
|
| /openbsd/regress/usr.sbin/pkg_add/ |
| H A D | mycreate | 29 my $pkgpath = $ENV{'PACKAGE_PATH'};
36 '-p', $ENV{'PACKAGE_BASE'} || '/usr/local',
39 '-DCOMMENT='.($ENV{'PACKAGE_COMMENT'} || 'comment'),
41 '-d', $ENV{'PACKAGE_DESCR'} || '-descr',
42 '-A', $ENV{'PACKAGE_ARCH'} || '*');
46 print join(' ', @args), "\n" if $ENV{'VERBOSE'};
47 if ($ENV{INJECT}) {
49 eval "require \"$ENV{INJECT}\"";
|
| H A D | my | 23 my $root = $ENV{'ROOT'};
27 $ENV{'PKG_DBDIR'} = "$root/pkgdb";
39 if ($ENV{'DEBUG'}) {
44 print STDERR join(' ', $prog, @ARGV), "\n" unless $ENV{'SILENT'} || $ENV{'VERBOSE'};
45 print join(' ', @args), "\n" if $ENV{'VERBOSE'};
57 if (defined $ENV{INJECT}) {
63 eval "require \"$ENV{INJECT}\"";
|
| /openbsd/gnu/usr.bin/perl/ext/DynaLoader/ |
| H A D | DynaLoader_pm.PL | 106 if (!$ENV{PERL_BUILD_EXPAND_CONFIG_VARS}) {
131 if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS}) {
173 if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS}) {
175 if (!$ENV{PERL_BUILD_EXPAND_ENV_VARS}) {
199 if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS}) {
231 if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS} && $ENV{PERL_BUILD_EXPAND_ENV_VARS}) {
244 if ($ENV{PERL_BUILD_EXPAND_CONFIG_VARS} && $ENV{PERL_BUILD_EXPAND_ENV_VARS}) {
247 # The below \@dl_library_path has been expanded (%Config, %ENV)
|
| /openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta/lib/Parse/CPAN/ |
| H A D | Meta.pm | 63 if ($ENV{PERL_CORE} or not defined $ENV{PERL_YAML_BACKEND} ) {
69 my $backend = $ENV{PERL_YAML_BACKEND};
79 if ($ENV{PERL_CORE}) {
84 if (my $decoder = $ENV{CPAN_META_JSON_DECODER}) {
95 if ($ENV{PERL_CORE}) {
100 if (my $backend = $ENV{CPAN_META_JSON_BACKEND}) {
107 if (! $ENV{PERL_JSON_BACKEND} or $ENV{PERL_JSON_BACKEND} eq 'JSON::PP') {
115 "\$ENV{PERL_JSON_BACKEND} = '$ENV{PERL_JSON_BACKEND}'\n";
|
| /openbsd/gnu/usr.bin/perl/ext/POSIX/t/ |
| H A D | mb.t | 43 local $ENV{LC_CTYPE} = $utf8_locale;
44 local $ENV{LC_ALL} = $utf8_locale;
89 local $ENV{LC_CTYPE} = $utf8_locale;
90 local $ENV{LC_ALL} = $utf8_locale;
91 local $ENV{PERL_UNICODE};
92 delete $ENV{PERL_UNICODE};
132 local $ENV{LC_CTYPE} = $utf8_locale;
133 local $ENV{LC_ALL} = $utf8_locale;
134 local $ENV{PERL_UNICODE};
135 delete $ENV{PERL_UNICODE};
|