Changeset 8329 for lang/perl/Net-FTP-Stepstone

Timestamp:

03/24/08 15:03:32 (5 years ago)

Author:

lopnor

Message:

lang/perl/Net-FTP-Stepstone: modify stat command for compatibility

Files:

• lang/perl/Net-FTP-Stepstone/trunk/lib/Net/FTP/Stepstone.pm (modified) (1 diff)

lang/perl/Net-FTP-Stepstone/trunk/lib/Net/FTP/Stepstone.pm

@@ -51 +51 @@
     $arg =~ s{/$}{};
     my $dir = dirname($arg);
+    $dir = '' if $dir =~ m{\./?};
     my $base = basename($arg);
     my @lines = $self->_ftp_command("ls $dir");