tests are expected to fail if dirfd () does not exist

[p5sagit/p5-mst-13.2.git] / t / op / lex_assign.t

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index 181c842..59d422e 100755 (executable)
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -4,8 +4,8 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 }
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; 
 
+$| = 1;
 umask 0;
 $xref = \ "";
 $runme = ($^O eq 'VMS' ? 'MCR ' : '') . $^X;
@@ -244,7 +244,7 @@ lc $cstr                    # lc
 quotemeta $cstr                        # quotemeta
 @$aref                         # rv2av
 @$undefed                      # rv2av undef
-each %h==1                     # each
+(each %h) % 2 == 1             # each
 values %h                      # values
 keys %h                                # keys
 %$href                         # rv2hv
@@ -265,7 +265,7 @@ open BLAH, "<non-existent"  # open
 fileno STDERR                  # fileno
 umask 0                                # umask
 select STDOUT                  # sselect
-select "","","",0              # select
+select undef,undef,undef,0     # select
 getc OP                                # getc
 '???'                          # read
 '???'                          # sysread