r77867 - in /branches/upstream/libsvn-look-perl/current: Changes META.yml Makefile.PL README lib/SVN/Look.pm t/test-functions.pl

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

Author: angelabad-guest
Date: Tue Jul 26 13:30:41 2011
New Revision: 77867

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77867
Log:
[svn-upgrade] new version libsvn-look-perl (0.22)

Modified:
    branches/upstream/libsvn-look-perl/current/Changes
    branches/upstream/libsvn-look-perl/current/META.yml
    branches/upstream/libsvn-look-perl/current/Makefile.PL
    branches/upstream/libsvn-look-perl/current/README
    branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
    branches/upstream/libsvn-look-perl/current/t/test-functions.pl

Modified: branches/upstream/libsvn-look-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/Changes?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/Changes (original)
+++ branches/upstream/libsvn-look-perl/current/Changes Tue Jul 26 13:30:41 2011
@@ -1,4 +1,8 @@
 Revision history for SVN-Look. -*- text -*-
+
+0.22	2011-07-21
+
+	Avoiding dependency from File::Slurp in the tests.
 
 0.21	2011-07-20
 

Modified: branches/upstream/libsvn-look-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/META.yml?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Tue Jul 26 13:30:41 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               SVN-Look
-version:            0.21
+version:            0.22
 abstract:           A caching wrapper aroung the svnlook command.
 author:
     - Gustavo Chaves <gustavo+perl at gnustavo.org>

Modified: branches/upstream/libsvn-look-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/Makefile.PL?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/Makefile.PL (original)
+++ branches/upstream/libsvn-look-perl/current/Makefile.PL Tue Jul 26 13:30:41 2011
@@ -15,12 +15,6 @@
 ) or die $usage;
 
 my $svnlook;
-
-if ($^O eq 'MSWin32') {
-    $ENV{PATH} .= ';C:\Program Files (x86)\VisualSVN Server\bin';
-} else {
-    $ENV{PATH} .= ':/usr/local/bin:/usr/bin:/bin';
-}
 
 eval {
     open my $svnlook, '-|', 'svnlook --version' or die;

Modified: branches/upstream/libsvn-look-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/README?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/README (original)
+++ branches/upstream/libsvn-look-perl/current/README Tue Jul 26 13:30:41 2011
@@ -1,6 +1,6 @@
 Name:    SVN-Look
 What:    A caching wrapper aroung the svnlook command.
-Version: 0.21
+Version: 0.22
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 SVN-Look is a caching wrapper aroung the svnlook command.

Modified: branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Tue Jul 26 13:30:41 2011
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.21
-
-=cut
-
-our $VERSION = '0.21';
+Version 0.22
+
+=cut
+
+our $VERSION = '0.22';
 
 =head1 SYNOPSIS
 
@@ -577,7 +577,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008-2010 CPqD, all rights reserved.
+Copyright 2008-2011 CPqD, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

Modified: branches/upstream/libsvn-look-perl/current/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/t/test-functions.pl?rev=77867&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/test-functions.pl (original)
+++ branches/upstream/libsvn-look-perl/current/t/test-functions.pl Tue Jul 26 13:30:41 2011
@@ -7,7 +7,6 @@
 use File::Spec::Functions;
 use File::Path;
 use File::Copy;
-use File::Slurp;
 use URI::file;
 
 # Make sure the svn messages come in English.
@@ -51,6 +50,13 @@
     copy(catfile($T, 'repo', 'conf',  'svn-hooks.conf') => catfile($dir, 'svn-hooks.conf'));
 
     system("$script 1>$stdout 2>$stderr");
+}
+
+sub read_file {
+    my ($file) = @_;
+    open my $fd, '<', $file or die "Can't open '$file': $!\n";
+    local $/ = undef;		# slurp mode
+    return <$fd>;
 }
 
 sub work_ok {