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 8e023fb4fab45ce4cefb8ec8eee5dfac21b5e0ad..ea2f172e1ae90ddb6dfa77981ddd1f37bc31ce2f 100644 (file)
--- a/lib/PLP/Tie/Headers.pm
+++ b/lib/PLP/Tie/Headers.pm
@@ -39,7 +39,8 @@ sub FETCH {
                $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 {