r33732 - in /trunk/libnet-sftp-foreign-perl: Changes META.yml debian/changelog 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:39:58 2009
New Revision: 33732

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33732
Log:
New upstream release.

Modified:
    trunk/libnet-sftp-foreign-perl/Changes
    trunk/libnet-sftp-foreign-perl/META.yml
    trunk/libnet-sftp-foreign-perl/debian/changelog
    trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm
    trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign/Helpers.pm
    trunk/libnet-sftp-foreign-perl/t/1_run.t

Modified: trunk/libnet-sftp-foreign-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/Changes?rev=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/Changes (original)
+++ trunk/libnet-sftp-foreign-perl/Changes Wed Apr 22 18:39:58 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: trunk/libnet-sftp-foreign-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/META.yml?rev=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/META.yml (original)
+++ trunk/libnet-sftp-foreign-perl/META.yml Wed Apr 22 18:39:58 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: trunk/libnet-sftp-foreign-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/debian/changelog?rev=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/debian/changelog (original)
+++ trunk/libnet-sftp-foreign-perl/debian/changelog Wed Apr 22 18:39:58 2009
@@ -1,5 +1,9 @@
-libnet-sftp-foreign-perl (1.50+dfsg-1) UNRELEASED; urgency=low
+libnet-sftp-foreign-perl (1.51+dfsg-1) UNRELEASED; urgency=low
 
+  [ Alejandro Garrido Mota ]
+  * New upstream release.
+
+  [ gregor herrmann ]
   * New upstream release.
 
  -- Alejandro Garrido Mota <garridomota at gmail.com>  Sat, 28 Mar 2009 10:26:25 -0430

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=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm (original)
+++ trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm Wed Apr 22 18:39:58 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: trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign/Helpers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign/Helpers.pm?rev=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign/Helpers.pm (original)
+++ trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign/Helpers.pm Wed Apr 22 18:39:58 2009
@@ -26,6 +26,7 @@
 sub _do_nothing {}
 
 sub _debug {
+    local $\;
     if ($Net::SFTP::Foreign::debug & 256) {
         print STDERR "#", $$, " ", @_,"\n"
     }

Modified: trunk/libnet-sftp-foreign-perl/t/1_run.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/t/1_run.t?rev=33732&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/t/1_run.t (original)
+++ trunk/libnet-sftp-foreign-perl/t/1_run.t Wed Apr 22 18:39:58 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... ");