r31703 - in /branches/upstream/libsvn-look-perl/current: META.yml Makefile.PL lib/SVN/Look.pm

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

Author: angelabad-guest
Date: Sun Mar  8 14:09:38 2009
New Revision: 31703

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

Modified:
    branches/upstream/libsvn-look-perl/current/META.yml
    branches/upstream/libsvn-look-perl/current/Makefile.PL
    branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm

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=31703&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Sun Mar  8 14:09:38 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                SVN-Look
-version:             0.14.9
+version:             0.14.10
 abstract:            A caching wrapper aroung the svnlook command.
 license:             ~
 author:              

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=31703&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/Makefile.PL (original)
+++ branches/upstream/libsvn-look-perl/current/Makefile.PL Sun Mar  8 14:09:38 2009
@@ -1,3 +1,4 @@
+use 5.008;
 use strict;
 use warnings;
 use File::Spec::Functions qw/catfile path/;

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=31703&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Sun Mar  8 14:09:38 2009
@@ -14,7 +14,7 @@
 
 =cut
 
-our $VERSION = '0.14.' . substr(q$Revision: 9 $, 10); # bump from 5
+our $VERSION = '0.14.' . substr(q$Revision: 10 $, 10); # bump from 5
 
 =head1 SYNOPSIS
 
@@ -108,8 +108,7 @@
 
 sub _svnlook {
     my ($self, $cmd, @args) = @_;
-    my $fd;
-    open $fd, '-|', $SVNLOOK, $cmd, $self->{repo}, @{$self->{what}}, @args
+    open my $fd, '-|', $SVNLOOK, $cmd, $self->{repo}, @{$self->{what}}, @args
 	or die "Can't exec svnlook $cmd: $!\n";
     if (wantarray) {
 	my @lines = <$fd>;