r32354 - in /trunk/libnet-sftp-foreign-perl: Changes META.yml TODO debian/changelog lib/Net/SFTP/Foreign.pm

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

Author: mogaal-guest
Date: Sat Mar 28 14:59:09 2009
New Revision: 32354

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32354
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=32354&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/Changes (original)
+++ trunk/libnet-sftp-foreign-perl/Changes Sat Mar 28 14:59:09 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: trunk/libnet-sftp-foreign-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/META.yml?rev=32354&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/META.yml (original)
+++ trunk/libnet-sftp-foreign-perl/META.yml Sat Mar 28 14:59:09 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: trunk/libnet-sftp-foreign-perl/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/TODO?rev=32354&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/TODO (original)
+++ trunk/libnet-sftp-foreign-perl/TODO Sat Mar 28 14:59:09 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: trunk/libnet-sftp-foreign-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sftp-foreign-perl/debian/changelog?rev=32354&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/debian/changelog (original)
+++ trunk/libnet-sftp-foreign-perl/debian/changelog Sat Mar 28 14:59:09 2009
@@ -1,3 +1,9 @@
+libnet-sftp-foreign-perl (1.50+dfsg-1); urgency=low
+
+  * New upstream release.
+
+ -- Alejandro Garrido Mota <garridomota at gmail.com>  Sat, 28 Mar 2009 10:26:25 -0430
+
 libnet-sftp-foreign-perl (1.48.03+dfsg-1) unstable; urgency=low
 
   [ Antonio Radici ]

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=32354&op=diff
==============================================================================
--- trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm (original)
+++ trunk/libnet-sftp-foreign-perl/lib/Net/SFTP/Foreign.pm Sat Mar 28 14:59:09 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) {