r33730 - in /branches/upstream/libnet-sftp-foreign-perl/current: Changes META.yml lib/Net/SFTP/Foreign.pm lib/Net/SFTP/Foreign/Helpers.pm t/1_run.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Apr 22 18:38:25 2009
New Revision: 33730

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33730
Log:
[svn-upgrade] Integrating new upstream version, libnet-sftp-foreign-perl (1.51+dfsg)

Modified:
    branches/upstream/libnet-sftp-foreign-perl/current/Changes
    branches/upstream/libnet-sftp-foreign-perl/current/META.yml
    branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm
    branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign/Helpers.pm
    branches/upstream/libnet-sftp-foreign-perl/current/t/1_run.t

Modified: branches/upstream/libnet-sftp-foreign-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/Changes?rev=33730&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/Changes (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/Changes Wed Apr 22 18:38:25 2009
@@ -1,4 +1,9 @@
 Revision history for Net::SFTP::Foreign
+
+1.51  Apr 7, 2009
+        - "get" corrupted the fetched files if $\ was non empty (bug
+          report and solution by Dagfinn Ilmari Mannsaker)
+	- increment default packet and queue size
 
 1.50  Mar 18, 2009
 	- rel2abs was not collapsing duplicated slashes when joining

Modified: branches/upstream/libnet-sftp-foreign-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/META.yml?rev=33730&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/META.yml (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/META.yml Wed Apr 22 18:38:25 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-SFTP-Foreign
-version:             1.50
+version:             1.51
 abstract:            Secure File Transfer Protocol client
 license:             ~
 author:              

Modified: branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm?rev=33730&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm Wed Apr 22 18:38:25 2009
@@ -1,6 +1,6 @@
 package Net::SFTP::Foreign;
 
-our $VERSION = '1.50';
+our $VERSION = '1.51';
 
 use strict;
 use warnings;
@@ -46,6 +46,7 @@
         my @c= (( map { sprintf "%02x",$_ } unpack('C*', $line)),
                 (("  ") x 32))[0..31];
         $line=~s/(.)/ my $c=$1; unpack("c",$c)>=32 ? $c : '.' /egms;
+	local $\;
         print STDERR join(" ", @c, '|', $line), "\n";
     }
 }
@@ -61,8 +62,8 @@
 our @ISA = qw(Net::SFTP::Foreign::Common);
 
 
-use constant DEFAULT_BLOCK_SIZE => 16384;
-use constant DEFAULT_QUEUE_SIZE => ($windows ? 4 : 10);
+use constant DEFAULT_BLOCK_SIZE => 32768;
+use constant DEFAULT_QUEUE_SIZE => ($windows ? 4 : 32);
 
 sub _next_msg_id { shift->{_msg_id}++ }
 
@@ -1726,6 +1727,7 @@
     my $adjustment = 0;
     my $selin = '';
     my $n = 0;
+    local $\;
 
     vec ($selin, $rfno, 1) = 1;
 

Modified: branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign/Helpers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign/Helpers.pm?rev=33730&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign/Helpers.pm (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign/Helpers.pm Wed Apr 22 18:38:25 2009
@@ -26,6 +26,7 @@
 sub _do_nothing {}
 
 sub _debug {
+    local $\;
     if ($Net::SFTP::Foreign::debug & 256) {
         print STDERR "#", $$, " ", @_,"\n"
     }

Modified: branches/upstream/libnet-sftp-foreign-perl/current/t/1_run.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/t/1_run.t?rev=33730&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/t/1_run.t (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/t/1_run.t Wed Apr 22 18:38:25 2009
@@ -70,6 +70,9 @@
     my $drdir = File::Spec->catdir($rcwd, 'testdir');
 
     for my $i (1..8) {
+
+	local $\ = ($i == 4 ? "-bad-" : undef);
+
         mktestfile($dlfn, $i * 4000,
                    "this is just testing data... foo bar doz wahtever... ");