--- /usr/lib/perl5/Ogg/Vorbis/Header.pm	2003-05-21 12:15:13.000000000 +0200
+++ Header.pm	2006-03-27 01:20:41.000000000 +0200
@@ -56,7 +56,7 @@
 	my $result;
 	return undef unless $key;
 	$self->_load_comments unless $self->{COMMENTS};
-	if (! defined ($result = $self->{COMMENTS}->{$key})) {
+	if (! defined ($result = $self->{COMMENTS}->{uc $key})) {
 		return undef;
 	}
 	return @{$result};
@@ -71,9 +71,9 @@
 	while ($#comments >= 0) {
 		my $key = shift @comments;
 		$key =~ s/[^\x20-\x3C\x3E-\x7D]//g;
-		$key = lc($key);
+		$key = uc($key);
 		my $val = shift @comments;
-		$val =~ s/[^\x20-\x7D]//g;
+#		$val =~ s/[^\x20-\x7D]//g;
 		push @{$self->{COMMENTS}->{$key}}, $val;
 	}
 	
@@ -89,7 +89,7 @@
 	
 	my $comment = $self->{COMMENTS}->{$key};
 	return undef unless $comment;
-	$value =~ s/[^\x20-\x7D]//g;
+#	$value =~ s/[^\x20-\x7D]//g;
 	return undef unless @$comment > $num;
 
 	my $result = $comment->[$num];