diff options
Diffstat (limited to 't/run/fresh_perl.t')
| -rw-r--r-- | t/run/fresh_perl.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index d422bee3c8..b906285514 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -828,6 +828,12 @@ foo at - line 1. ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com> -lw BEGIN { + if ($^O eq 'os390') { + require File::Glob; + import File::Glob ':glob'; + } +} +BEGIN { eval 'require Fcntl'; if ($@) { print qq[./"TEST"\n./"TEST"\n]; exit 0 } # running minitest? } @@ -844,6 +850,12 @@ EXPECT ######## glob() bug Mon, 01 Sep 2003 02:25:41 -0700 <200309010925.h819Pf0X011457@smtp3.ActiveState.com> -lw BEGIN { + if ($^O eq 'os390') { + require File::Glob; + import File::Glob ':glob'; + } +} +BEGIN { eval 'require Fcntl'; if ($@) { print qq[./"TEST"\n./"TEST"\n]; exit 0 } # running minitest? } @@ -868,7 +880,7 @@ BEGIN { # Test case cut down by jhi $SIG{__WARN__} = sub { $@ = shift }; use Encode; -my $t = "\xE9"; +my $t = ord('A') == 193 ? "\xEA" : "\xE9"; Encode::_utf8_on($t); $t =~ s/([^a])//ge; $@ =~ s/ at .*/ at/; |