From 23733d89d3fec318ca608f44a690d9a2ee3b30d1 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 31 Mar 2007 02:26:19 +0200
Subject: [PATCH] fix header key conversion to match documentation

Really convert Content_Type to content-type.
---
 PLP/Tie/Headers.pm | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/PLP/Tie/Headers.pm b/PLP/Tie/Headers.pm
index 163ce54..566b198 100644
--- a/PLP/Tie/Headers.pm
+++ b/PLP/Tie/Headers.pm
@@ -14,12 +14,6 @@ This module is part of the PLP internals and probably not of much use to others.
 
 =cut
 
-sub _lc ($) {
-    local $_ = $_[0];
-    tr/_/-/;
-    return lc;
-}
-
 sub TIEHASH {
     return bless [ # Defaults
         {
@@ -35,19 +29,21 @@ sub TIEHASH {
 
 sub FETCH {
     my ($self, $key) = @_;
-    return $self->[0]->{ $self->[1]->{_lc $key} };
+    $key =~ tr/_/-/;
+    return $self->[0]->{ $self->[1]->{lc $key} };
 }
 
 sub STORE {
     my ($self, $key, $value) = @_;
+    $key =~ tr/_/-/;
     if ($PLP::sentheaders) {
     	my @caller = caller;
 	die "Can't set headers after sending them at " .
 	    "$caller[1] line $caller[2].\n(Output started at " .
 	    "$PLP::sentheaders->[0] line $PLP::sentheaders->[1].)\n"
     }
-    if (defined $self->[1]->{_lc $key}){
-        $key = $self->[1]->{_lc $key};
+    if (defined $self->[1]->{lc $key}){
+        $key = $self->[1]->{lc $key};
     } else {
         $self->[1]->{lc $key} = $key;
     }
@@ -56,8 +52,9 @@ sub STORE {
 
 sub DELETE {
     my ($self, $key) = @_;
+    $key =~ tr/_/-/;
     delete $self->[0]->{$key};
-    return delete $self->[1]->{_lc $key};
+    return delete $self->[1]->{lc $key};
 }
 
 sub CLEAR {
@@ -67,7 +64,8 @@ sub CLEAR {
 
 sub EXISTS {
     my ($self, $key) = @_;
-    return exists $self->[1]->{_lc $key};
+    $key =~ tr/_/-/;
+    return exists $self->[1]->{lc $key};
 }
 
 sub FIRSTKEY {
-- 
2.30.0