diff options
| author | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | fc75d0664419eb8c8f264d8f298df2cd155c8966 (patch) | |
| tree | 4cf1274fa3ca68f7ecf6a3051e0c2243e378afc5 /contrib/perl5/t/op/magic.t | |
| parent | 8947993a910c7e5d244200623325b9fcb54a9eee (diff) | |
| download | src-fc75d0664419eb8c8f264d8f298df2cd155c8966.tar.gz src-fc75d0664419eb8c8f264d8f298df2cd155c8966.zip | |
Vendor import Perl 5.6.1
Notes
Notes:
svn path=/vendor/perl5/dist/; revision=92442
Diffstat (limited to 'contrib/perl5/t/op/magic.t')
| -rwxr-xr-x | contrib/perl5/t/op/magic.t | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/contrib/perl5/t/op/magic.t b/contrib/perl5/t/op/magic.t index 773927605665..c2a82115b461 100755 --- a/contrib/perl5/t/op/magic.t +++ b/contrib/perl5/t/op/magic.t @@ -3,7 +3,7 @@ BEGIN { $| = 1; chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; $SIG{__WARN__} = sub { die "Dying on warning: ", @_ }; } @@ -189,16 +189,18 @@ if ($Is_VMS || $Is_Dos) { } else { $PATH = $ENV{PATH}; + $PDL = $ENV{PERL_DESTRUCT_LEVEL} || 0; $ENV{foo} = "bar"; %ENV = (); $ENV{PATH} = $PATH; + $ENV{PERL_DESTRUCT_LEVEL} = $PDL || 0; ok 29, ($Is_MSWin32 ? (`cmd /x /c set foo 2>NUL` eq "") : (`echo \$foo` eq "\n") ); - $ENV{NoNeSuCh} = "foo"; + $ENV{__NoNeSuCh} = "foo"; $0 = "bar"; - ok 30, ($Is_MSWin32 ? (`cmd /x /c set NoNeSuCh` eq "NoNeSuCh=foo\n") - : (`echo \$NoNeSuCh` eq "foo\n") ); + ok 30, ($Is_MSWin32 ? (`cmd /x /c set __NoNeSuCh` eq "__NoNeSuCh=foo\n") + : (`echo \$__NoNeSuCh` eq "foo\n") ); } { |