diff options
author | Karl Williamson <khw@cpan.org> | 2014-11-26 11:31:56 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-11-26 11:37:17 -0700 |
commit | 8d8193d7ef96b974dc88a95c24407fb70c3b5501 (patch) | |
tree | 074d31add32ef770c57338d32569d4808e3767d8 /ext/PerlIO-encoding/t/fallback.t | |
parent | 9f10db87f54f2a85594e3661927a9b6128c1f425 (diff) | |
download | perl-8d8193d7ef96b974dc88a95c24407fb70c3b5501.tar.gz |
PerlIO::encoding:fallback.t: Don't use undefined sub
skip_all isn't defined under Test::More.
Diffstat (limited to 'ext/PerlIO-encoding/t/fallback.t')
-rw-r--r-- | ext/PerlIO-encoding/t/fallback.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/PerlIO-encoding/t/fallback.t b/ext/PerlIO-encoding/t/fallback.t index 3944f7dff0..efa3988d11 100644 --- a/ext/PerlIO-encoding/t/fallback.t +++ b/ext/PerlIO-encoding/t/fallback.t @@ -1,7 +1,10 @@ #!./perl BEGIN { - skip_all("No perlio") unless (find PerlIO::Layer 'perlio'); + unless (find PerlIO::Layer 'perlio') { + print "1..0 # No perlio\n"; + exit 0; + } if (ord("A") == 193) { print "1..0 # Skip: EBCDIC\n"; exit 0; |