X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEnglish.t;h=49819fc9b2f97e944d2deaee2eafd13425e91388;hb=08411240a1e5278b0232e1455d984110b1c5343b;hp=6e11dcc686082ec2030b982a881a55211022808d;hpb=c798bd2165d7b5d59c62ab6330f7cf77ff8b09dd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/English.t b/lib/English.t
index 6e11dcc..49819fc 100755
--- a/lib/English.t
+++ b/lib/English.t
@@ -33,7 +33,11 @@ $ORS = "\n";
 
 {
 	local(*IN, *OUT);
-	pipe(IN, OUT);
+	if ($^O ne 'dos') {
+	    pipe(IN, OUT);
+	} else {
+	    open(OUT, ">en.tmp");
+	}
 	select(OUT);
 	$| = 1;
 	print 'ok', '7';
@@ -44,6 +48,7 @@ $ORS = "\n";
 	my $close = close OUT;
 	ok( !($close) == $CHILD_ERROR, '$CHILD_ERROR should be false' );
 
+	open(IN, "<en.tmp") if ($^O eq 'dos');
 	my $foo = <IN>;
 	like( $foo, qr/ok 7/, '$OFS' );
 
@@ -75,7 +80,7 @@ like( $EVAL_ERROR, qr/method/, '$EVAL_ERROR' );
 
 is( $UID, $<, '$UID' );
 is( $GID, $(, '$GID' );
-is( $EUID, $>, '$EUID' ); 
+is( $EUID, $>, '$EUID' );
 is( $EGID, $), '$EGID' );
 
 is( $PROGRAM_NAME, $0, '$PROGRAM_NAME' );
@@ -117,13 +122,13 @@ $SUBSEP = ',';
 $hash{'a', 'b', 'c'} = 1;
 my @keys = sort keys %hash;
 
-is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' ); 
-is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' ); 
+is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' );
+is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' );
 
 eval { is( $EXCEPTIONS_BEING_CAUGHT, 1, '$EXCEPTIONS_BEING_CAUGHT' ) };
 ok( !$EXCEPTIONS_BEING_CAUGHT, '$EXCEPTIONS_BEING_CAUGHT should be false' );
 
-eval { open('') };
+eval { local *F; my $f = 'asdasdasd'; ++$f while -e $f; open(F, $f); };
 is( $OS_ERROR, $ERRNO, '$OS_ERROR' );
 ok( $OS_ERROR{ENOENT}, '%OS_ERROR (ENOENT should be set)' );