This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PerlIO::encoding:fallback.t: Don't use undefined sub
authorKarl Williamson <khw@cpan.org>
Wed, 26 Nov 2014 18:31:56 +0000 (11:31 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 26 Nov 2014 18:37:17 +0000 (11:37 -0700)
   skip_all isn't defined under Test::More.

ext/PerlIO-encoding/t/fallback.t

index 3944f7d..efa3988 100644 (file)
@@ -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;