X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Flex_assign.t;h=c6c424d26e08d7dc55b2a9f9622a17d633048e7a;hb=21fa6956243df9cb622bebfa0934ea7923519b4f;hp=836cdba4cc01710333b7750161db6364063a9130;hpb=f0047d3230fc461fd73cd320460e2d28aa944e73;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index 836cdba..c6c424d 100755
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -2,13 +2,13 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; 
 
+$| = 1;
 umask 0;
 $xref = \ "";
-$runme = ($^O eq 'VMS' ? 'MCR ' : '') . $^X;
+$runme = $^X;
 @a = (1..5);
 %h = (1..6);
 $aref = \@a;
@@ -173,7 +173,7 @@ EOE
 __END__
 ref $xref			# ref
 ref $cstr			# ref nonref
-`$runme -e "print qq[1\n]"`				# backtick skip(MSWin32)
+`$runme -e "print qq[1\\n]"`				# backtick skip(MSWin32)
 `$undefed`			# backtick undef skip(MSWin32)
 <*>				# glob
 <OP>				# readline
@@ -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
@@ -309,7 +309,7 @@ getpriority $$, $$		# getpriority
 time				# time
 localtime $^T			# localtime
 gmtime $^T			# gmtime
-sleep 1				# sleep
+'???'				# sleep: can randomly fail
 '???'				# alarm
 '???'				# shmget
 '???'				# shmctl