r25899 - in /trunk/libnet-sftp-foreign-perl: Changes META.yml TODO debian/changelog lib/Net/SFTP/Foreign.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Oct 10 12:31:42 UTC 2008
Author: gregoa
Date: Fri Oct 10 12:31:39 2008
New Revision: 25899
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25899
Log:
New upstream release.
Modified:
trunk/libnet-sftp-foreign-perl/Changes
trunk/libnet-sftp-foreign-perl/META.yml
trunk/libnet-sftp-foreign-perl/TODO
trunk/libnet-sftp-foreign-perl/debian/changelog
trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm
Modified: trunk/libnet-sftp-foreign-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/Changes?rev=25899&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/Changes (original)
+++ trunk/libnet-sftp-foreign-perl/Changes Fri Oct 10 12:31:39 2008
@@ -1,4 +1,9 @@
Revision history for Net::SFTP::Foreign
+
+1.44 Oct 9, 2008
+ - put was using block sizes 4 times bigger than
+ requested, bug introduced in 1.41 (reported by Hussain
+ Syed).
1.43 Sep 8, 2008
- readline was slurping the full file contents (bug report by
Modified: trunk/libnet-sftp-foreign-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/META.yml?rev=25899&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/META.yml (original)
+++ trunk/libnet-sftp-foreign-perl/META.yml Fri Oct 10 12:31:39 2008
@@ -1,15 +1,12 @@
---- #YAML:1.0
-name: Net-SFTP-Foreign
-version: 1.43
-abstract: Secure File Transfer Protocol client
-license: ~
-author:
- - Salvador Fandino <sfandino at yahoo.com>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Net-SFTP-Foreign
+version: 1.44
+version_from: lib/Net/SFTP/Foreign.pm
+installdirs: site
+requires:
Scalar::Util: 0
Test::More: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: trunk/libnet-sftp-foreign-perl/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/TODO?rev=25899&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/TODO (original)
+++ trunk/libnet-sftp-foreign-perl/TODO Fri Oct 10 12:31:39 2008
@@ -2,7 +2,7 @@
TODO
====
--
+- add support for capture_stderr option in constructor
DONE
====
Modified: trunk/libnet-sftp-foreign-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/debian/changelog?rev=25899&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/debian/changelog (original)
+++ trunk/libnet-sftp-foreign-perl/debian/changelog Fri Oct 10 12:31:39 2008
@@ -1,3 +1,9 @@
+libnet-sftp-foreign-perl (1.44+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Fri, 10 Oct 2008 14:30:49 +0200
+
libnet-sftp-foreign-perl (1.43+dfsg-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm?rev=25899&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm (original)
+++ trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm Fri Oct 10 12:31:39 2008
@@ -1,6 +1,6 @@
package Net::SFTP::Foreign;
-our $VERSION = '1.43';
+our $VERSION = '1.44';
use strict;
use warnings;
@@ -135,11 +135,11 @@
my $n = select($rv1, $wv1, undef, $timeout);
if ($n > 0) {
if (vec($wv1, $fnoout, 1)) {
- my $written = syswrite($sftp->{ssh_out}, $$bout, 16384);
+ my $written = syswrite($sftp->{ssh_out}, $$bout, 20480);
$debug and $debug & 32 and _debug (sprintf "_do_io write queue: %d, syswrite: %s, max: %d",
length $$bout,
(defined $written ? $written : 'undef'),
- 16384);
+ 20480);
unless ($written) {
$sftp->_conn_lost;
return undef;
@@ -147,7 +147,7 @@
substr($$bout, 0, $written, '');
}
if (vec($rv1, $fnoin, 1)) {
- my $read = sysread($sftp->{ssh_in}, $sftp->{_bin}, 16384, length($$bin));
+ my $read = sysread($sftp->{ssh_in}, $sftp->{_bin}, 20480, length($$bin));
$debug and $debug & 32 and _debug (sprintf "_do_io read sysread: %s, total read: %d",
(defined $read ? $read : 'undef'),
length $sftp->{_bin});
@@ -174,7 +174,7 @@
my $bout = \$sftp->{_bout};
while (length $$bout) {
- my $written = syswrite($sftp->{ssh_out}, $$bout, 16384);
+ my $written = syswrite($sftp->{ssh_out}, $$bout, 20480);
unless ($written) {
$sftp->_conn_lost;
return undef;
@@ -1835,7 +1835,7 @@
if (!$eof and @msgid < $queue_size) {
my ($data, $len);
if ($converter) {
- if (!$eof_t and length $converted_input < $block_size) {
+ while (!$eof_t and length $converted_input < $block_size) {
my $read = CORE::read($fh, my $input, $block_size * 4);
unless ($read) {
unless (defined $read) {
@@ -1855,7 +1855,7 @@
$eof = 1 if ($eof_t and !$len);
}
else {
- $len = CORE::read($fh, $data, $block_size * 4);
+ $len = CORE::read($fh, $data, $block_size);
unless ($len) {
unless (defined $len) {
$sftp->_set_error(SFTP_ERR_LOCAL_READ_ERROR,
@@ -4030,7 +4030,7 @@
Support for transfer resuming is experimental!
Support for password/passphrase handling via Expect is also
-experimental. On Windows it only works under the cygwin version of
+experimental. On Windows it only works under the Cygwin version of
Perl.
To report bugs, please, send me and email or use
More information about the Pkg-perl-cvs-commits
mailing list