[libnet-ssh2-perl] 01/01: Imported Upstream version 0.52

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to annotated tag upstream/0.52
in repository libnet-ssh2-perl.

commit 5e4b8cee0b81fe0d9a319bfc61e9a8e7a4a43d32
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Thu Aug 15 20:35:17 2013 +0200

    Imported Upstream version 0.52
---
 Changes         |    4 ++++
 META.yml        |    2 +-
 MYMETA.json     |    2 +-
 MYMETA.yml      |    2 +-
 lib/Net/SSH2.pm |    6 ++----
 5 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index baf8fd9..6ae38cd 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Net::SSH2.
 
+0.52  2013-08-14 02:43:11
+        - detect scp not being installed on the remote and return undef from
+          scp_put (krimdomu: Jan) (GitHub PR: #17)
+
 0.51  2013-08-03 21:17:47
         - turn off -std=c89 -pedantic-errors for all builds except authors not
           on mingw or solaris
diff --git a/META.yml b/META.yml
index 67d151d..c372e23 100644
--- a/META.yml
+++ b/META.yml
@@ -24,4 +24,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/rkitover/net-ssh2.git
-version: 0.51
+version: 0.52
diff --git a/MYMETA.json b/MYMETA.json
index fe3b126..f7d97fd 100644
--- a/MYMETA.json
+++ b/MYMETA.json
@@ -37,5 +37,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "0.51"
+   "version" : "0.52"
 }
diff --git a/MYMETA.yml b/MYMETA.yml
index 063416e..ad0701c 100644
--- a/MYMETA.yml
+++ b/MYMETA.yml
@@ -19,4 +19,4 @@ no_index:
     - inc
 requires:
   perl: 5.006
-version: 0.51
+version: 0.52
diff --git a/lib/Net/SSH2.pm b/lib/Net/SSH2.pm
index 3c6e45f..b7c0ca2 100644
--- a/lib/Net/SSH2.pm
+++ b/lib/Net/SSH2.pm
@@ -208,7 +208,7 @@ our %EXPORT_TAGS = (
 
 our @EXPORT_OK = @{$EXPORT_TAGS{all}};
 
-our $VERSION = '0.51';
+our $VERSION = '0.52';
 
 # methods
 
@@ -423,9 +423,7 @@ sub scp_put {
 
     # send/receive SCP acknowledgement
     $chan->write("\0");
-    my $eof;
-    $chan->read($eof, 1);
-    return 1;
+    return $chan->read((my $eof), 1) || undef;
 }
 
 my %Event;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-ssh2-perl.git