diff options
Diffstat (limited to 'lib/English.t')
-rwxr-xr-x | lib/English.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/English.t b/lib/English.t index 6f1520c2c6..49819fc9b2 100755 --- a/lib/English.t +++ b/lib/English.t @@ -128,7 +128,7 @@ 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)' ); |