Gentoo Archives: gentoo-commits

From: "Tiziano Mueller (dev-zero)" <dev-zero@g.o>
To: gentoo-commits@l.g.o
Subject: [gentoo-commits] gentoo-x86 commit in media-sound/mp32ogg/files: mp32ogg-0.11-r5-german_umlaut.patch
Date: Thu, 28 Feb 2008 19:53:06
Message-Id: E1JUoo6-00062r-UN@stork.gentoo.org
1 dev-zero 08/02/28 19:52:42
2
3 Added: mp32ogg-0.11-r5-german_umlaut.patch
4 Log:
5 Added patch for bug #208017 (thanks to Mathias Hablützel, patch originally from Ubuntu).
6 (Portage version: 2.1.4.4)
7
8 Revision Changes Path
9 1.1 media-sound/mp32ogg/files/mp32ogg-0.11-r5-german_umlaut.patch
10
11 file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/media-sound/mp32ogg/files/mp32ogg-0.11-r5-german_umlaut.patch?rev=1.1&view=markup
12 plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/media-sound/mp32ogg/files/mp32ogg-0.11-r5-german_umlaut.patch?rev=1.1&content-type=text/plain
13
14 Index: mp32ogg-0.11-r5-german_umlaut.patch
15 ===================================================================
16 --- mp32ogg_old 2008-01-29 10:45:06.000000000 +0100
17 +++ mp32ogg 2008-01-29 10:44:34.000000000 +0100
18 @@ -6,6 +6,10 @@
19 # <http://www.opensource.org/licenses/artistic-license.html>
20
21 # ChangeLog
22 +# 0.11-gentoo-r2
23 +# * Mathias Hablützel <mhk@×××××××××××××××××.ch>:
24 +# Support for german umlaut
25 +#
26 # 0.11-gentoo
27 # * Jeremy Huddleston <eradicator@g.o>:
28 # Added support for mpg321
29 @@ -82,13 +86,18 @@
30 # 0.1
31 # First Release
32
33 -$version = "v0.11-gentoo";
34 +$version = "v0.11-gentoo-r2";
35
36 use MP3::Info;
37 use File::Find ();
38 use File::Basename;
39 use Getopt::Long;
40 use String::ShellQuote;
41 +use Encode;
42 +use POSIX qw/setlocale LC_CTYPE/;
43 +use I18N::Langinfo qw/langinfo CODESET/;
44 +
45 +setlocale(LC_CTYPE, '');
46
47 use_winamp_genres();
48
49 @@ -111,6 +120,7 @@
50 "lowercase",
51 "no-replace",
52 "verbose",
53 + "preserve-timestamp",
54 "<>", \&checkfile);
55
56 sub showhelp() {
57 @@ -123,7 +133,7 @@
58 print " and %l with artist, title, and album name\n";
59 print " for the track\n";
60 print "--lowercase Force lowercase filenames when using --rename\n";
61 - print "--verbose Verbose output\n";
62 + print "--verbose Verbose output\n";
63 print "--help Display this help message\n";
64 exit;
65
66 @@ -160,6 +170,15 @@
67
68 $info = get_mp3tag($mp3file);
69 $fileinfo = get_mp3info($mp3file);
70 + # Sanity checking: Is this file really an MP3 file?
71 + die "Could not determine MP3 version, aborting" if ($fileinfo->{VERSION}=="");
72 +
73 + # get_mp3info returns magical Perl UTF-8 strings, but this script
74 + # really wants to deal with plain old sequences-of-octets, so encode
75 + # those strings.
76 + for $key (keys %$info) {
77 + $info->{$key} = encode(langinfo(CODESET), $info->{$key});
78 + }
79
80 $_ = $filename;
81
82
83
84
85 --
86 gentoo-commits@l.g.o mailing list