X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/178a4a4de0bbc111bf376d6876af16c093e3c838..77a1edf5bac6b7e352acb953518275d994a6dec3:/lib/PLP/Tie/Headers.pm

diff --git a/lib/PLP/Tie/Headers.pm b/lib/PLP/Tie/Headers.pm
index 8e023fb..ea2f172 100644
--- 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 {