diff options
| author | Karl Williamson <khw@cpan.org> | 2016-08-11 16:53:35 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-08-17 15:23:59 -0600 |
| commit | 594feacd4bcd5777c4b50f0f656cd58e8506c5cc (patch) | |
| tree | 27d5a7fca6ffb8e47b8b7df8a16ca90f6b3503e9 /lib/locale.t | |
| parent | 389cb6df94a20dfb9291b46c419d7626abcec7ff (diff) | |
| download | perl-594feacd4bcd5777c4b50f0f656cd58e8506c5cc.tar.gz | |
lib/locale.t: Add some extra info to a debug statement
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/locale.t b/lib/locale.t index 1f7c5efd68..e8cedbca5a 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -1988,12 +1988,15 @@ foreach my $Locale (@Locale) { foreach my $err (keys %!) { use Errno; $! = eval "&Errno::$err"; # Convert to strerror() output + my $errnum = 0+$!; my $strerror = "$!"; if ("$strerror" =~ /\P{ASCII}/) { $ok14 = utf8::is_utf8($strerror); no locale; $ok14_5 = "$!" !~ /\P{ASCII}/; - debug(disp_str("non-ASCII \$!=$!")) if ! $ok14_5; + debug( disp_str( + "non-ASCII \$! for error $errnum='$strerror'")) + if ! $ok14_5; last; } } |