Changeset 23220

Timestamp:

11/11/08 13:27:21 (5 years ago)

Author:

daisuke

Message:

unwind push_headers for @_ == 2

Files:

• lang/perl/HTTP-Headers-Fast/trunk/lib/HTTP/Headers/Fast.pm (modified) (1 diff)

lang/perl/HTTP-Headers-Fast/trunk/lib/HTTP/Headers/Fast.pm

@@ -99 +99 @@
     my $self = shift;
 
-    while ( my ($field, $val) = splice( @_, 0, 2 ) ) {
+    if (@_ == 2) {
+        my ($field, $val) = @_;
         $field = _standardize_field_name($field) unless $field =~ /^:/;
 
-    my $h = $self->{$field};
-    if (!defined $h) {
-        $h = [];
-        $self->{$field} = $h;
-    } elsif (ref $h ne 'ARRAY') {
-        $h = [ $h ];
-        $self->{$field} = $h;
-    }
+        my $h = $self->{$field};
+        if (!defined $h) {
+            $h = [];
+            $self->{$field} = $h;
+        } elsif (ref $h ne 'ARRAY') {
+            $h = [ $h ];
+            $self->{$field} = $h;
+        }
     
         push @$h, ref $val ne 'ARRAY' ? $val : @$val;
+    } else {
+        while ( my ($field, $val) = splice( @_, 0, 2 ) ) {
+            $field = _standardize_field_name($field) unless $field =~ /^:/;
+
+            my $h = $self->{$field};
+            if (!defined $h) {
+                $h = [];
+                $self->{$field} = $h;
+            } elsif (ref $h ne 'ARRAY') {
+                $h = [ $h ];
+                $self->{$field} = $h;
+            }
+    
+            push @$h, ref $val ne 'ARRAY' ? $val : @$val;
+        }
     }
     return ();