Package: libogg-vorbis-header-perl
Version: 0.03-1
Severity: important
*** Please type your report below this line ***
The vorbis comment spec says that the field name should be
case-insensitive:
A case-insensitive field name that may consist of ASCII 0x20 through
0x7D, 0x3D ('=') excluded. ASCII 0x41 through 0x5A inclusive (A-Z) is
to be considered equivalent to ASCII 0x61 through 0x7A inclusive
(a-z).
However, when I try to add_comment() with an upper-case field name, it
gets lowercased.
Attached is a simple patch.
(i.e. The iRiver only reads uppercase tag names, which is why I want to
have upper-case tags.)
-- System Information:
Debian Release: 3.1
Architecture: i386 (i686)
Kernel: Linux 2.6.10-5-386
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)
Versions of packages libogg-vorbis-header-perl depends on:
ii libc6 2.3.2.ds1-20ubuntu13 GNU C Library: Shared libraries
an
ii libinline-perl 0.44-3 Write Perl subroutines in other
pr
ii libogg0 1.1.2-0ubuntu1 Ogg Bitstream Library
ii libvorbis0a 1.0.1-1 The Vorbis General Audio
Compressi
ii libvorbisfile3 1.0.1-1 The Vorbis General Audio
Compressi
ii perl 5.8.4-6ubuntu1 Larry Wall's Practical Extraction
ii perl-base [perlapi- 5.8.4-6ubuntu1 The Pathologically Eclectic
Rubbis
-- no debconf information
--- Header.pm.dist 2003-05-21 12:15:13.000000000 +0200
+++ Header.pm 2005-06-27 21:01:53.796888408 +0200
@@ -71,7 +71,6 @@
while ($#comments >= 0) {
my $key = shift @comments;
$key =~ s/[^\x20-\x3C\x3E-\x7D]//g;
- $key = lc($key);
my $val = shift @comments;
$val =~ s/[^\x20-\x7D]//g;
push @{$self->{COMMENTS}->{$key}}, $val;
