X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/0cfa86cf4c741be9c11ee71e138963671d0e2f3c..6c6d67b2fb0a2a211f3603edcb2d2f7609f51f4f:/lib/PLP/Tie/Headers.pm

diff --git a/lib/PLP/Tie/Headers.pm b/lib/PLP/Tie/Headers.pm
index ea2f172..f0db968 100644
--- a/lib/PLP/Tie/Headers.pm
+++ b/lib/PLP/Tie/Headers.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 =head1 PLP::Tie::Headers
 
@@ -64,8 +64,8 @@ sub STORE {
 sub DELETE {
 	my ($self, $key) = @_;
 	$key =~ tr/_/-/;
-	delete $self->[0]->{$key};
-	return delete $self->[1]->{lc $key};
+	defined ($key = delete $self->[1]->{lc $key}) or return;
+	return delete $self->[0]->{$key};
 }
 
 sub CLEAR {