diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-10-08 13:00:14 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-08 21:10:49 +0000 |
| commit | 7c36658b988154cf97fb44e48a4b69859fe075fb (patch) | |
| tree | 5c939a5aaf82b6ae8284451a698a7174bfb22152 /t/op/magic.t | |
| parent | 9b6f56add0290d5abf1a0544e71e01681e6e1beb (diff) | |
| download | perl-7c36658b988154cf97fb44e48a4b69859fe075fb.tar.gz | |
Re: [PATCH mg.c gv.c and others] ${^TAINT}
Message-ID: <20011008170014.L17083@blackrider>
p4raw-id: //depot/perl@12367
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index bbccd8e9e3..20d973b403 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -35,7 +35,7 @@ sub skip { return 1; } -print "1..41\n"; +print "1..43\n"; $Is_MSWin32 = $^O eq 'MSWin32'; $Is_NetWare = $^O eq 'NetWare'; @@ -283,3 +283,7 @@ ok ${"!"}{ENOENT}; ok $^S == 0; eval { ok $^S == 1 }; ok $^S == 0; + +ok ${^TAINT} == 0; +eval { ${^TAINT} = 1 }; +ok ${^TAINT} == 0; |