diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 13:21:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 13:21:13 +0000 |
| commit | a0d33644c88d64f8be4a8dd7e7def943284c650f (patch) | |
| tree | 945862b46361ae52b4fc098284b3494569dedd68 /lib/English.t | |
| parent | f355267cae69288cbad383cfc3cf2811969d730e (diff) | |
| download | perl-a0d33644c88d64f8be4a8dd7e7def943284c650f.tar.gz | |
DJGPP tweaks from Laszlo.
p4raw-id: //depot/perl@16923
Diffstat (limited to 'lib/English.t')
| -rwxr-xr-x | lib/English.t | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/English.t b/lib/English.t index 6e11dcc686..6f1520c2c6 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,8 +122,8 @@ $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' ); |