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

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

Author: angelabad-guest
Date: Fri Mar  6 09:54:21 2009
New Revision: 31527

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

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

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