ExtUtils-Constant: Fix to work on EBCDIC

2 files changed, 6 insertions, 2 deletions

diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
index bd0d8a784b..2500f8dcff 100644
--- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
+++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
@@ -5,7 +5,7 @@ use vars qw($VERSION);
 use Carp;
 use Text::Wrap;
 use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
-$VERSION = '0.06';
+$VERSION = '0.07';
 
 use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
 
@@ -716,7 +716,7 @@ sub normalise_items
       # tr///c is broken on 5.6.1 for utf8, so my original tr/\0-\177//c
       # doesn't work. Upgrade to 5.8
       # if ($name !~ tr/\0-\177//c || $] < 5.005_50) {
-      if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50
+      if ($name !~ /[[:^ascii:]]/ || $] < 5.005_50
 	 || $args->{disable_utf8_duplication}) {
         # No characters outside 7 bit ASCII.
         if (exists $items->{$name}) {
diff --git a/cpan/ExtUtils-Constant/t/Constant.t b/cpan/ExtUtils-Constant/t/Constant.t
index 526a32c779..a9ca11a060 100644
--- a/cpan/ExtUtils-Constant/t/Constant.t
+++ b/cpan/ExtUtils-Constant/t/Constant.t
@@ -108,6 +108,10 @@ sub check_for_bonus_files {
   while (defined (my $entry = readdir DIR)) {
     $entry =~ s/(.*?)\.?$/\L$1/ if $^O eq 'VMS';
     next if $expect{$entry};
+
+    # Normal relics
+    next if $^O eq 'os390' && $entry =~ /\.dbg$/;
+
     print "# Extra file '$entry'\n";
     $fail = 1;
   }