r32352 - in /branches/upstream/libnet-sftp-foreign-perl/current: Changes META.yml TODO lib/Net/SFTP/Foreign.pm

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

Author: mogaal-guest
Date: Sat Mar 28 14:54:05 2009
New Revision: 32352

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32352
Log:
[svn-upgrade] Integrating new upstream version, libnet-sftp-foreign-perl (1.50+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/TODO
    branches/upstream/libnet-sftp-foreign-perl/current/lib/Net/SFTP/Foreign.pm

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=32352&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/Changes (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/Changes Sat Mar 28 14:54:05 2009
@@ -1,6 +1,12 @@
 Revision history for Net::SFTP::Foreign
 
-1.48_03  Feb 18, 2009
+1.50  Mar 18, 2009
+	- rel2abs was not collapsing duplicated slashes when joining
+          paths, generating paths as '//home' that have an unexpected
+          meaning under Windows (bug report and solution by Erik
+          Weidel)
+
+1.49  Mar 17, 2009
 	- use utf8::downgrade to handle data with may have its utf8
           flag set (bug report by Jamie Lahowetz, solution by ikegami)
 	- emulate SSH2_FXF_APPEND mode not supported by OpenSSH SFTP

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=32352&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/META.yml (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/META.yml Sat Mar 28 14:54:05 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-SFTP-Foreign
-version:             1.48_03
+version:             1.50
 abstract:            Secure File Transfer Protocol client
 license:             ~
 author:              

Modified: branches/upstream/libnet-sftp-foreign-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sftp-foreign-perl/current/TODO?rev=32352&op=diff
==============================================================================
--- branches/upstream/libnet-sftp-foreign-perl/current/TODO (original)
+++ branches/upstream/libnet-sftp-foreign-perl/current/TODO Sat Mar 28 14:54:05 2009
@@ -10,6 +10,11 @@
 
 - add support for encodings
 
+- improve password login, remove Expect dependency and try to backport
+  as much as possible fron Net::OpenSSH
+
+- detect unknown host key checking
+
 DONE
 ==== 
 

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=32352&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 Sat Mar 28 14:54:05 2009
@@ -1,6 +1,6 @@
 package Net::SFTP::Foreign;
 
-our $VERSION = '1.48_03';
+our $VERSION = '1.50';
 
 use strict;
 use warnings;
@@ -605,9 +605,11 @@
 
 sub _rel2abs {
     my ($sftp, $path) = @_;
-    if (defined $sftp->{cwd} and $path !~/^\//) {
+    my $cwd = $sftp->{cwd};
+    if (defined $cwd and $path !~ m|^/|) {
         # carp "sftp->rel2abs($path) => $sftp->{cwd}/$path\n";
-        return "$sftp->{cwd}/$path"
+	$path =~ s|^(?:\./+)+||;
+	return ($cwd =~ m|/$| ? "$cwd$path" : "$cwd/$path");
     }
     return $path
 }
@@ -775,8 +777,7 @@
 
 ## SSH2_FXP_OPENDIR (11)
 sub opendir {
-    (@_ >= 2 and @_ <= 3)
-	or croak 'Usage: $sftp->opendir($path)';
+    @_ == 2 or croak 'Usage: $sftp->opendir($path)';
     ${^TAINT} and &_catch_tainted_args;
 
     my $sftp = shift;
@@ -1043,7 +1044,6 @@
 	    or last;
 
 	my $data = $msg->get_str;
-	
 	$$bin .= $data;
 	if (length $data < $bsize) {
 	    unless (defined $len) {