t/TEST: print Skip msg for EBCDIC skipped tests

1 files changed, 8 insertions, 2 deletions

diff --git a/t/TEST b/t/TEST
index 11e672f76c..c9d7daf7b1 100755
--- a/t/TEST
+++ b/t/TEST
@@ -396,6 +396,7 @@ sub _tests_from_manifest {
     my %skip;
     my %extensions = _populate_hash($extensions);
     my %known_extensions = _populate_hash($known_extensions);
+    my %printed_skip_warning;
 
     foreach (keys %known_extensions) {
 	$skip{$_} = 1 unless $extensions{$_};
@@ -409,7 +410,7 @@ sub _tests_from_manifest {
 		my $t = $1;
 		my $extension = $2;
 
-		next if ord "A" != 65
+		if (    ord "A" != 65
 		     && defined $extension
 		     && $extension =~ m! \b (?:
 						Archive-Tar/
@@ -435,7 +436,12 @@ sub _tests_from_manifest {
 					      | Module-Metadata/
 					      | PerlIO-via-QuotedPrint/
 					    )
-				       !x;
+				       !x)
+		{
+		    print STDERR "Skipping testing of $extension on EBCDIC\n"
+				     unless $printed_skip_warning{$extension}++;
+		    next;
+		}
 
 		if (!$::core || $t =~ m!^lib/[a-z]!) {
 		    if (defined $extension) {