diff options
| author | Karl Williamson <khw@cpan.org> | 2022-04-17 21:18:30 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-04-19 21:25:16 -0600 |
| commit | 5649fc6ccaca547f488077f1a9383c149e5f87be (patch) | |
| tree | 3538fa8d54a9ea12ca886103403eaf8b7a851234 /cpan/podlators | |
| parent | 05319f568a01ea178854f67a8ebd68e977569c3d (diff) | |
| download | perl-5649fc6ccaca547f488077f1a9383c149e5f87be.tar.gz | |
podlators: z/OS isn't necessarily EBCDIC
(nor is EBCDIC necessarily z/OS). Fix conditional
Diffstat (limited to 'cpan/podlators')
| -rw-r--r-- | cpan/podlators/t/general/basic.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/cpan/podlators/t/general/basic.t b/cpan/podlators/t/general/basic.t index d4978bcf36..0feb6a6ed2 100644 --- a/cpan/podlators/t/general/basic.t +++ b/cpan/podlators/t/general/basic.t @@ -80,9 +80,8 @@ for my $module (sort keys %OUTPUT) { $got =~ s{ \A .* \n [.]nh \n }{}xms; } - # OS/390 is EBCDIC, which apparently uses a different character for ESC. - # Try to convert so that the test still works. - if ($^O eq 'os390' && $module eq 'Pod::Text::Termcap') { + # Try to convert on EBCDIC boxes so that the test still works. + if (ord "A" == 193 && $module eq 'Pod::Text::Termcap') { $got =~ tr{\033}{\047}; } |