Changeset 21420 for perl5

Timestamp:

07/20/08 21:08:51 (4 months ago)

Author:

fglock

Message:

[PCR] unicode fix

Location:

perl5/Pugs-Compiler-Rule

Files:

• Changes (modified) (1 diff)
• lib/Pugs/Compiler/Rule.pm (modified) (1 diff)
• lib/Pugs/Emitter/Rule/Perl5/CharClass.pm (modified) (2 diffs)

perl5/Pugs-Compiler-Rule/Changes

@@ +1 @@
+0.32  2008-07-21
 0.31  2008-07-21
 - unicode fixes

perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm

@@ -5 +5 @@
 package Pugs::Compiler::Rule;
 
-our $VERSION = '0.31';
+our $VERSION = '0.32';
 
 use base 'Pugs::Compiler::Regex';

perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm

@@ -17 +17 @@
 sub vianame {
     my $c = shift;
+    $c =~ s/^\s+//;
+    $c =~ s/\s+$//;
     my $s = charnames::vianame($c);
     return $s if $s;
@@ -31 +33 @@
         if $c eq "NEXT LINE" || $c eq "NEL";
     return $s if $s;
+    die "unknown unicode name: $c";
 }