lib/locale.t: Display :punct: characters under debug mode
authorKarl Williamson <public@khwilliamson.com>
Sat, 24 Aug 2013 18:25:01 +0000 (12:25 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 31 Aug 2013 19:58:32 +0000 (13:58 -0600)
This class of characters was previously omitted

lib/locale.t

index 50c6d23..4b31d4b 100644 (file)
@@ -829,6 +829,7 @@ foreach $Locale (@Locale) {
         @{$posixes{'graph'}} = grep /[[:graph:]]/, map {chr } 0..255;
         @{$posixes{'lower'}} = grep /[[:lower:]]/, map {chr } 0..255;
         @{$posixes{'print'}} = grep /[[:print:]]/, map {chr } 0..255;
         @{$posixes{'graph'}} = grep /[[:graph:]]/, map {chr } 0..255;
         @{$posixes{'lower'}} = grep /[[:lower:]]/, map {chr } 0..255;
         @{$posixes{'print'}} = grep /[[:print:]]/, map {chr } 0..255;
+        @{$posixes{'punct'}} = grep /[[:punct:]]/, map {chr } 0..255;
         @{$posixes{'upper'}} = grep /[[:upper:]]/, map {chr } 0..255;
         @{$posixes{'xdigit'}} = grep /[[:xdigit:]]/, map {chr } 0..255;
         @{$posixes{'cased'}} = grep /[[:upper:]]/i, map {chr } 0..255;
         @{$posixes{'upper'}} = grep /[[:upper:]]/, map {chr } 0..255;
         @{$posixes{'xdigit'}} = grep /[[:xdigit:]]/, map {chr } 0..255;
         @{$posixes{'cased'}} = grep /[[:upper:]]/i, map {chr } 0..255;
@@ -859,6 +860,7 @@ foreach $Locale (@Locale) {
         @{$posixes{'graph'}} = grep /[[:graph:]]/, map {chr } 0..255;
         @{$posixes{'lower'}} = grep /[[:lower:]]/, map {chr } 0..255;
         @{$posixes{'print'}} = grep /[[:print:]]/, map {chr } 0..255;
         @{$posixes{'graph'}} = grep /[[:graph:]]/, map {chr } 0..255;
         @{$posixes{'lower'}} = grep /[[:lower:]]/, map {chr } 0..255;
         @{$posixes{'print'}} = grep /[[:print:]]/, map {chr } 0..255;
+        @{$posixes{'punct'}} = grep /[[:punct:]]/, map {chr } 0..255;
         @{$posixes{'upper'}} = grep /[[:upper:]]/, map {chr } 0..255;
         @{$posixes{'xdigit'}} = grep /[[:xdigit:]]/, map {chr } 0..255;
         @{$posixes{'cased'}} = grep /[[:upper:]]/i, map {chr } 0..255;
         @{$posixes{'upper'}} = grep /[[:upper:]]/, map {chr } 0..255;
         @{$posixes{'xdigit'}} = grep /[[:xdigit:]]/, map {chr } 0..255;
         @{$posixes{'cased'}} = grep /[[:upper:]]/i, map {chr } 0..255;
@@ -888,6 +890,7 @@ foreach $Locale (@Locale) {
     debug "# :xdigit: = ", display_characters(@{$posixes{'xdigit'}}), "\n";
     debug "# :blank:  = ", display_characters(@{$posixes{'blank'}}), "\n";
     debug "#  s       = ", display_characters(@{$posixes{'space'}}), "\n";
     debug "# :xdigit: = ", display_characters(@{$posixes{'xdigit'}}), "\n";
     debug "# :blank:  = ", display_characters(@{$posixes{'blank'}}), "\n";
     debug "#  s       = ", display_characters(@{$posixes{'space'}}), "\n";
+    debug "# :punct:  = ", display_characters(@{$posixes{'punct'}}), "\n";
     debug "# :cntrl:  = ", display_characters(@{$posixes{'cntrl'}}), "\n";
     debug "# :ascii:  = ", display_characters(@{$posixes{'ascii'}}), "\n";
 
     debug "# :cntrl:  = ", display_characters(@{$posixes{'cntrl'}}), "\n";
     debug "# :ascii:  = ", display_characters(@{$posixes{'ascii'}}), "\n";