r53344 - in /trunk/libsvn-look-perl: Changes META.yml README debian/changelog debian/copyright lib/SVN/Look.pm t/01-commands.t

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Thu Feb 25 21:27:40 2010
New Revision: 53344

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53344
Log:
New upstream release 0.17

Modified:
    trunk/libsvn-look-perl/Changes
    trunk/libsvn-look-perl/META.yml
    trunk/libsvn-look-perl/README
    trunk/libsvn-look-perl/debian/changelog
    trunk/libsvn-look-perl/debian/copyright
    trunk/libsvn-look-perl/lib/SVN/Look.pm
    trunk/libsvn-look-perl/t/01-commands.t

Modified: trunk/libsvn-look-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/Changes?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/Changes (original)
+++ trunk/libsvn-look-perl/Changes Thu Feb 25 21:27:40 2010
@@ -1,4 +1,8 @@
 Revision history for SVN-Look. -*- text -*-
+
+0.17    2010-02-24
+
+	Minor error correction.
 
 0.16	2010-02-16
 

Modified: trunk/libsvn-look-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/META.yml?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/META.yml (original)
+++ trunk/libsvn-look-perl/META.yml Thu Feb 25 21:27:40 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                SVN-Look
-version:             0.16
+version:             0.17
 abstract:            A caching wrapper aroung the svnlook command.
 license:             ~
 author:              

Modified: trunk/libsvn-look-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/README?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/README (original)
+++ trunk/libsvn-look-perl/README Thu Feb 25 21:27:40 2010
@@ -1,6 +1,6 @@
 Name:    SVN-Look
 What:    A caching wrapper aroung the svnlook command.
-Version: 0.16
+Version: 0.17
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 SVN-Look is a caching wrapper aroung the svnlook command.

Modified: trunk/libsvn-look-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/debian/changelog?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/debian/changelog (original)
+++ trunk/libsvn-look-perl/debian/changelog Thu Feb 25 21:27:40 2010
@@ -1,3 +1,9 @@
+libsvn-look-perl (0.17-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Angel Abad <angelabad at gmail.com>  Thu, 25 Feb 2010 22:27:24 +0100
+
 libsvn-look-perl (0.16-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libsvn-look-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/debian/copyright?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/debian/copyright (original)
+++ trunk/libsvn-look-perl/debian/copyright Thu Feb 25 21:27:40 2010
@@ -8,9 +8,9 @@
 License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+Copyright: 2008-2010, Angel Abad <angelabad at gmail.com>
  2009, Antonio Radici <antonio at dyne.org>
- 2008-2009, Angel Abad <angelabad at gmail.com>
+ 2010, Jonathan Yu <jawnsy at cpan.org>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/libsvn-look-perl/lib/SVN/Look.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/lib/SVN/Look.pm?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/lib/SVN/Look.pm (original)
+++ trunk/libsvn-look-perl/lib/SVN/Look.pm Thu Feb 25 21:27:40 2010
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.16
-
-=cut
-
-our $VERSION = '0.16';
+Version 0.17
+
+=cut
+
+our $VERSION = '0.17';
 
 =head1 SYNOPSIS
 
@@ -498,6 +498,7 @@
 	my ($key, $value) = split /:\s*/, $line, 2;
 	if ($key =~ /^Comment/) {
 	    $lock{Comment} = join('', @lock);
+	    last;
 	}
 	else {
 	    $lock{$key} = $value;

Modified: trunk/libsvn-look-perl/t/01-commands.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-look-perl/t/01-commands.t?rev=53344&op=diff
==============================================================================
--- trunk/libsvn-look-perl/t/01-commands.t (original)
+++ trunk/libsvn-look-perl/t/01-commands.t Thu Feb 25 21:27:40 2010
@@ -6,12 +6,8 @@
 
 require "test-functions.pl";
 
-my $nof_tests = 12;
-my $login = getlogin || getpwuid($<) || $ENV{USER};
---$nof_tests unless $login;
-
 if (has_svn()) {
-    plan tests => $nof_tests;
+    plan tests => 13;
 }
 else {
     plan skip_all => 'Need svn commands in the PATH.';
@@ -30,8 +26,19 @@
 
 ok(defined $look, 'constructor');
 
-cmp_ok($look->author(), 'eq', $login, 'author')
-    if $login;
+# Grok the author name
+my $author;
+open my $svn, '-|', "svn info $t/wc/file"
+    or die "Can't exec svn info\n";
+while (<$svn>) {
+    if (/Author: (.*)$/) {
+	$author = $1;
+    }
+}
+close $svn;
+ok(defined $author, 'grok author');
+
+cmp_ok($look->author(), 'eq', $author, 'author');
 
 cmp_ok($look->log_msg(), 'eq', "log\n", 'log_msg');