This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Add debugging statement
authorKarl Williamson <khw@cpan.org>
Tue, 17 Jun 2014 18:10:40 +0000 (12:10 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 18 Jun 2014 02:21:38 +0000 (20:21 -0600)
This will aid in debugging on platforms where strftime has problems

lib/locale.t

index 70766f2..7d7e27e 100644 (file)
@@ -1880,7 +1880,8 @@ foreach my $Locale (@Locale) {
 
         use locale;
         $ok19 = POSIX::strftime("%p", @times) ne "%p"; # [perl #119425]
-        my $date = POSIX::strftime("%A %B %Z", @times);
+        my $date = POSIX::strftime("'%A'  '%B'  '%Z'", @times);
+        debug("'Day' 'Month' 'TZ' = ", disp_str($date));
 
         # If there is any non-ascii, it better be UTF-8 in a UTF-8 locale, and
         # not UTF-8 if the locale isn't UTF-8.