undefined warnings while reading unknown headers

[perl/plp/.git] / lib / PLP / Tie / Headers.pm

diff --git a/lib/PLP/Tie/Headers.pm b/lib/PLP/Tie/Headers.pm
index df41fbef2c105ec9c049764fd2735c20ec1c4b04..ea2f172e1ae90ddb6dfa77981ddd1f37bc31ce2f 100644 (file)
--- a/lib/PLP/Tie/Headers.pm
+++ b/lib/PLP/Tie/Headers.pm
@@ -1,8 +1,11 @@
 package PLP::Tie::Headers;
 
 use strict;
+use warnings;
 use Carp;
 
+our $VERSION = '1.00';
+
 =head1 PLP::Tie::Headers
 
 Makes a hash case insensitive, and sets some headers. <_> equals <->, so C<$foo{CONTENT_TYPE}> is
@@ -23,14 +26,21 @@ sub TIEHASH {
                {
                        'content-type'  => 'Content-Type',
                        'x-plp-version' => 'X-PLP-Version',
-               }
+               },
+               1  # = content-type untouched
        ], $_[0];
 }
 
 sub FETCH {
        my ($self, $key) = @_;
+       if ($self->[2] and defined $self->[0]->{'Content-Type'}) {
+               my $utf8 = eval { grep {$_ eq "utf8"}  PerlIO::get_layers(*STDOUT) };
+               $self->[0]->{'Content-Type'} .= '; charset=utf-8' if $utf8;
+               $self->[2] = 0;
+       }
        $key =~ tr/_/-/;
-       return $self->[0]->{ $self->[1]->{lc $key} };
+       defined ($key = $self->[1]->{lc $key}) or return;
+       return $self->[0]->{$key};
 }
 
 sub STORE {
@@ -47,6 +57,7 @@ sub STORE {
        } else {
                $self->[1]->{lc $key} = $key;
        }
+       $self->[2] = 0 if $key eq 'Content-Type';
        return ($self->[0]->{$key} = $value);
 }