r29741 - in /trunk/libaudio-mpd-common-perl: Changes META.yml debian/changelog debian/control debian/copyright debian/docs lib/Audio/MPD/Common.pm lib/Audio/MPD/Common/Item.pm lib/Audio/MPD/Common/Item/Playlist.pm t/10-item.t

rmayorga-guest at users.alioth.debian.org rmayorga-guest at users.alioth.debian.org
Sat Jan 17 04:13:12 UTC 2009


Author: rmayorga-guest
Date: Sat Jan 17 04:12:53 2009
New Revision: 29741

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29741
Log:
* New upstream release
* remove debian/docs
* debian/control; add myself to Uploaders
* debian/copyright; update proposal format

Removed:
    trunk/libaudio-mpd-common-perl/debian/docs
Modified:
    trunk/libaudio-mpd-common-perl/Changes
    trunk/libaudio-mpd-common-perl/META.yml
    trunk/libaudio-mpd-common-perl/debian/changelog
    trunk/libaudio-mpd-common-perl/debian/control
    trunk/libaudio-mpd-common-perl/debian/copyright
    trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm
    trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm
    trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm
    trunk/libaudio-mpd-common-perl/t/10-item.t

Modified: trunk/libaudio-mpd-common-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/Changes?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/Changes (original)
+++ trunk/libaudio-mpd-common-perl/Changes Sat Jan 17 04:12:53 2009
@@ -8,6 +8,9 @@
 
 Low-level changelog
 ===================
+
+0.1.4 Tue Jan  6 16:40:08 CET 2009
+ - missing tag last_modified in amci:playlist (new in mpd 0.14)
 
 0.1.3 Tue Sep 23 08:35:42 CEST 2008
  - [rt#39529] missing tag fields in amci:song

Modified: trunk/libaudio-mpd-common-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/META.yml?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/META.yml (original)
+++ trunk/libaudio-mpd-common-perl/META.yml Sat Jan 17 04:12:53 2009
@@ -1,6 +1,6 @@
 ---
 name: Audio-MPD-Common
-version: 0.1.3
+version: 0.1.4
 author:
   - 'Jerome Quelin <jquelin at cpan.org>'
 abstract: a bunch of common helper classes for mpd
@@ -22,7 +22,7 @@
 provides:
   Audio::MPD::Common:
     file: lib/Audio/MPD/Common.pm
-    version: 0.1.3
+    version: 0.1.4
   Audio::MPD::Common::Item:
     file: lib/Audio/MPD/Common/Item.pm
   Audio::MPD::Common::Item::Directory:
@@ -37,7 +37,7 @@
     file: lib/Audio/MPD/Common/Status.pm
   Audio::MPD::Common::Time:
     file: lib/Audio/MPD/Common/Time.pm
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.31
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: trunk/libaudio-mpd-common-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/debian/changelog?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-common-perl/debian/changelog Sat Jan 17 04:12:53 2009
@@ -1,9 +1,16 @@
-libaudio-mpd-common-perl (0.1.3-2) UNRELEASED; urgency=low
+libaudio-mpd-common-perl (0.1.4-1) unstable; urgency=low
 
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:39:40 +0100
+  [ Rene Mayorga ]
+  * New upstream release
+  * remove debian/docs
+  * debian/control; add myself to Uploaders
+  * debian/copyright; update proposal format
+
+ -- Rene Mayorga <rmayorga at debian.org.sv>  Fri, 16 Jan 2009 21:21:58 -0600
 
 libaudio-mpd-common-perl (0.1.3-1) unstable; urgency=low
 

Modified: trunk/libaudio-mpd-common-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/debian/control?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/debian/control (original)
+++ trunk/libaudio-mpd-common-perl/debian/control Sat Jan 17 04:12:53 2009
@@ -5,7 +5,8 @@
 Build-Depends-Indep: libclass-accessor-perl, libreadonly-perl,
  libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>
+Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>, 
+ Rene Mayorga <rmayorga at debian.org.sv>
 Standards-Version: 3.8.0
 Homepage: http://search.cpan.org/dist/Audio-MPD-Common
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaudio-mpd-common-perl/

Modified: trunk/libaudio-mpd-common-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/debian/copyright?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/debian/copyright (original)
+++ trunk/libaudio-mpd-common-perl/debian/copyright Sat Jan 17 04:12:53 2009
@@ -6,19 +6,23 @@
 
 Files: *
 Copyright: (c) 2007 Jerome Quelin
+License-Alias: Perl
 License: GPL-1+ | Artistic
- This program is free software; you can redistribute it and/or modify
- it under the same terms as Perl itself.
- .
- The full text of the GPL is distributed in /usr/share/common-licenses/GPL
- on Debian systems, and the Artistic license in
- /usr/share/common-licenses/Artistic
 
 Files: debian/*
 Copyright:
  Copyright (C) 2007-2008,      Joey Hess <joeyh at debian.org>
  Copyright (C) 2008, gregor herrmann <gregoa at debian.org>
 License: GPL-1+ | Artistic
- The packaging work is licensed under the same licenses as the software
- itself (see above).
 
+License: Artistic
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the Artistic License, which comes with Perl.
+   On Debian GNU/Linux systems, the complete text of the Artistic License
+   can be found in /usr/share/common-licenses/Artistic
+
+License: GPL-1+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 1, or (at your option)
+   any later version.

Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm Sat Jan 17 04:12:53 2009
@@ -11,7 +11,7 @@
 
 use warnings;
 use strict;
-our $VERSION = '0.1.3';
+our $VERSION = '0.1.4';
 
 1;
 

Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm Sat Jan 17 04:12:53 2009
@@ -23,9 +23,9 @@
 sub new {
     my ($pkg, %params) = @_;
 
-    # transform keys in lowercase.
+    # transform keys in lowercase, remove dashes "-"
     my %lowcase;
-    @lowcase{ map { lc } keys %params } = values %params;
+    @lowcase{ map { s/-/_/; lc } keys %params } = values %params;
 
     return Audio::MPD::Common::Item::Song->new(\%lowcase)      if exists $params{file};
     return Audio::MPD::Common::Item::Directory->new(\%lowcase) if exists $params{directory};

Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm Sat Jan 17 04:12:53 2009
@@ -13,7 +13,7 @@
 use warnings;
 
 use base qw[ Class::Accessor::Fast Audio::MPD::Common::Item ];
-__PACKAGE__->mk_accessors( qw[ playlist ] );
+__PACKAGE__->mk_accessors( qw[ last_modified playlist ] );
 
 #our ($VERSION) = '$Rev: 5645 $' =~ /(\d+)/;
 

Modified: trunk/libaudio-mpd-common-perl/t/10-item.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/t/10-item.t?rev=29741&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/t/10-item.t (original)
+++ trunk/libaudio-mpd-common-perl/t/10-item.t Sat Jan 17 04:12:53 2009
@@ -12,7 +12,7 @@
 use warnings;
 
 use Audio::MPD::Common::Item;
-use Test::More tests => 21;
+use Test::More tests => 22;
 
 my ($i, $output, @output, %params);
 
@@ -68,12 +68,15 @@
 
 #
 # testing amc::item::playlist
-$output = "playlist: some_name\n";
+$output = 'playlist: some_name
+Last-Modified: 2006-12-13T19:53:50Z
+';
 @output = split /\n/, $output;
 %params = map { /^([^:]+):\s+(.*)$/ ? ($1=>$2) : () } @output;
 $i = Audio::MPD::Common::Item->new( %params );
 isa_ok( $i, 'Audio::MPD::Common::Item::Playlist', 'playlist creation' );
 is( $i->playlist, 'some_name',  'accessor: playlist' );
+is( $i->last_modified, '2006-12-13T19:53:50Z',  'accessor: last_modified' );
 isa_ok( $i, 'Audio::MPD::Common::Item', 'playlistinherits from item' );
 
 exit;




More information about the Pkg-perl-cvs-commits mailing list