r22570 - in /branches/upstream/libaudio-mpd-perl/current: Changes META.yml bin/mpd-dynamic lib/Audio/MPD.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Jul  1 07:07:46 2008
New Revision: 22570

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22570
Log:
[svn-upgrade] Integrating new upstream version, libaudio-mpd-perl (0.19.2)

Modified:
    branches/upstream/libaudio-mpd-perl/current/Changes
    branches/upstream/libaudio-mpd-perl/current/META.yml
    branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic
    branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm

Modified: branches/upstream/libaudio-mpd-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/Changes?rev=22570&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/Changes (original)
+++ branches/upstream/libaudio-mpd-perl/current/Changes Tue Jul  1 07:07:46 2008
@@ -18,6 +18,14 @@
 
 Low-level changelog
 ===================
+
+0.19.2 Tue Jun 17 19:24:16 CEST 2008
+ - mpd-dynamic should lookup ratings with utf8 encoded pathes
+
+0.19.1 Mon Dec  3 18:23:58 CET 2007
+ - new method all_playlists() (courtesy of Joey Hess)
+ - fix for filenames / playlists beginning with a space (courtesy of
+   Joey Hess)
 
 0.19.0 Thu Nov 29 20:10:18 CET 2007
  - changed constructor api: using a hash for options instead of

Modified: branches/upstream/libaudio-mpd-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/META.yml?rev=22570&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/META.yml (original)
+++ branches/upstream/libaudio-mpd-perl/current/META.yml Tue Jul  1 07:07:46 2008
@@ -1,6 +1,6 @@
 ---
 name: Audio-MPD
-version: 0.19.1
+version: 0.19.2
 author: []
 abstract: class to talk to MPD (Music Player Daemon) servers
 license: perl
@@ -29,7 +29,7 @@
 provides:
   Audio::MPD:
     file: lib/Audio/MPD.pm
-    version: 0.19.1
+    version: 0.19.2
   Audio::MPD::Collection:
     file: lib/Audio/MPD/Collection.pm
   Audio::MPD::Playlist:

Modified: branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic?rev=22570&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic (original)
+++ branches/upstream/libaudio-mpd-perl/current/bin/mpd-dynamic Tue Jul  1 07:07:46 2008
@@ -64,7 +64,7 @@
 
         PICK_ONE:
         for (1..$new) {
-            my $random = $files[ rand @files ];
+            my $random = encode('utf-8', $files[ rand @files ]);
             if ( $istied && exists $ratings{$random}
                  && $ratings{$random} != 0
                  && $ratings{$random} < $ARGV{min} ) {
@@ -72,7 +72,7 @@
                 redo PICK_ONE;
             }
             debug("adding [$random]\n");
-            eval { $mpd->playlist->add( $random ) };
+            eval { $mpd->playlist->add( decode('utf-8', $random) ) };
             debug("error: $@\n") if $@;
         }
         untie %ratings if $istied;
@@ -89,7 +89,7 @@
     my ($msg) = @_;
     my ($s,$m,$h) = ( localtime(time) )[0,1,2,3,6];
     my $date = sprintf "%02d:%02d:%02d", $h, $m, $s;
-    warn "$date " . encode($ARGV{encoding}, $msg);
+    warn "$date $msg";
 }
 
 __END__

Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm?rev=22570&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm Tue Jul  1 07:07:46 2008
@@ -28,7 +28,7 @@
         collection playlist version ] );
 
 
-our $VERSION = '0.19.1';
+our $VERSION = '0.19.2';
 
 Readonly our $REUSE => 0;
 Readonly our $ONCE  => 1;