diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-08-27 15:54:26 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-30 09:09:22 +0000 |
| commit | 5ec759d99e1d7da757cc5c14f943efa0811b8515 (patch) | |
| tree | 7ba303c8610122533cd68f48eba52609f26a6d8e | |
| parent | 03026e68943709ca8a44f2b7298e79491a3245b9 (diff) | |
| download | perl-5ec759d99e1d7da757cc5c14f943efa0811b8515.tar.gz | |
[patch@25334] t/op/magic.t - Last 3 tests invalid on VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <4310FD32.70809@qsl.net>
p4raw-id: //depot/perl@25336
| -rwxr-xr-x | t/op/magic.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 134d0498b1..54be238c7f 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -436,7 +436,7 @@ ok "@+" eq "10 1 6 10"; } # Test for bug [perl #36434] -{ +if (!$Is_VMS) { local @ISA; local %ENV; eval { push @ISA, __PACKAGE__ }; @@ -449,3 +449,9 @@ ok "@+" eq "10 1 6 10"; ok( $@ eq '', 'Assign a shared key to a magic hash'); $@ and print "# $@"; } +else { +# Can not do this test on VMS, EPOC, and SYMBIAN according to comments +# in mg.c/Perl_magic_clear_all_env() +# + skip('Can\'t make assignment to \%ENV on this system') for 1..3; +} |