Changeset 25961

Timestamp:

12/05/08 18:34:44 (5 weeks ago)

Author:

kazuho

Message:

incr $VERSION, do not lc header name (since its verrrrrrrrrrrrrrry slow

Files:

• lang/perl/NanoA/trunk/lib/NanoA.pm (modified) (2 diffs)

lang/perl/NanoA/trunk/lib/NanoA.pm

@@ -5 +5 @@
 use utf8;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 my %REQUIRED;
@@ -98 +98 @@
             if @_ % 2 != 0;
         while (@_) {
-            my $n = lc shift;
-            $n =~ s/^([^-])/-$1/;
+            my $n = shift;
+            $n = '-' . $n
+                unless substr($n, 0, 1) eq '-';
             my $v = shift;
             $v = [ $v ]