Changeset 23203

Timestamp:

11/11/08 12:08:34 (5 years ago)

Author:

tokuhirom

Message:

$OP_PUSH_H is no longer needed

Location:

lang/perl/HTTP-Headers-Fast/trunk

Files:

• lib/HTTP/Headers/Fast.pm (modified) (2 diffs)
• tools/prof.pl (modified) (1 diff)

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

@@ -19 +19 @@
 my $OP_SET    = 1;
 my $OP_INIT   = 2;
-my $OP_PUSH   = 3;
-my $OP_PUSH_H = 4;
 
 my @general_headers = qw(
@@ -230 +228 @@
 
     $op ||= defined($val) ? $OP_SET : $OP_GET;
-    if ( $op == $OP_PUSH_H ) {
-
-        # Like PUSH but where we don't care about the return value
-        if ( exists $self->{$field} ) {
-            my $h = $self->{$field};
-            if ( ref($h) eq 'ARRAY' ) {
-                push( @$h, ref($val) eq "ARRAY" ? @$val : $val );
-            }
-            else {
-                $self->{$field} = [ $h, ref($val) eq "ARRAY" ? @$val : $val ];
-            }
-            return;
-        }
-        $self->{$field} = $val;
-        return;
-    }
 
     my $h = $self->{$field};

lang/perl/HTTP-Headers-Fast/trunk/tools/prof.pl

@@ -11 +11 @@
 );
 
-for (0..100) { $f->as_string }
+for (0..100) { $f->push_header('X-Foo', 3) }