diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-06 20:31:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-06 20:31:43 +0000 |
| commit | 9aa05f5803ebfde70aac285fc58e97e64abbc2b4 (patch) | |
| tree | bddf91144353a1f5a8c7bdd11946043c91e4b112 /t/run | |
| parent | 143a3e5ef1446bbe436a43486e7681c31b0c8407 (diff) | |
| download | perl-9aa05f5803ebfde70aac285fc58e97e64abbc2b4.tar.gz | |
Change the value of ${^TAINT} : 0 without taint checks,
1 with -T, and -1 with -t or -TU.
p4raw-id: //depot/perl@18453
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/runenv.t | 2 | ||||
| -rw-r--r-- | t/run/switcht.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/run/runenv.t b/t/run/runenv.t index 9acad00edf..df4a778b4d 100644 --- a/t/run/runenv.t +++ b/t/run/runenv.t @@ -150,7 +150,7 @@ try({PERL5OPT => '-w -w'}, try({PERL5OPT => '-t'}, ['-e', 'print ${^TAINT}'], - '1', + '-1', ''); try({PERLLIB => "foobar$Config{path_sep}42"}, diff --git a/t/run/switcht.t b/t/run/switcht.t index 869605ff95..f48124e70d 100644 --- a/t/run/switcht.t +++ b/t/run/switcht.t @@ -14,7 +14,7 @@ my $warning; local $SIG{__WARN__} = sub { $warning = join "\n", @_; }; my $Tmsg = 'while running with -t switch'; -ok( ${^TAINT}, '${^TAINT} defined' ); +is( ${^TAINT}, -1, '${^TAINT} == -1' ); my $out = `$Perl -le "print q(Hello)"`; is( $out, "Hello\n", '`` worked' ); |