forked from Lainports/freebsd-ports
21 lines
1.1 KiB
Perl
21 lines
1.1 KiB
Perl
--- lib/Net/FTP/Common.pm.orig Fri Oct 10 13:30:42 2003
|
|
+++ lib/Net/FTP/Common.pm Tue Oct 14 16:31:23 2003
|
|
@@ -167,7 +167,8 @@
|
|
foreach (@{$dir})
|
|
{
|
|
# $_ =~ m#([a-z-]*)\s*([0-9]*)\s*([0-9a-zA-Z]*)\s*([0-9a-zA-Z]*)\s*([0-9]*)\s*([A-Za-z]*)\s*([0-9]*)\s*([0-9A-Za-z:]*)\s*([A-Za-z0-9.-]*)#;
|
|
- $_ = m#([a-z-]*)\s*([0-9]*)\s*([0-9a-zA-Z]*)\s*([0-9a-zA-Z]*)\s*([0-9]*)\s*([A-Za-z]*)\s*([0-9]*)\s*([0-9A-Za-z:]*)\s*([\w*\W*\s*\S*]*)#;
|
|
+ # $_ = m#([a-z-]*)\s*([0-9]*)\s*([0-9a-zA-Z]*)\s*([0-9a-zA-Z]*)\s*([0-9]*)\s*([A-Za-z]*)\s*([0-9]*)\s*([0-9A-Za-z:]*)\s*([\w*\W*\s*\S*]*)#;
|
|
+ $_ =~ m#([a-z-]*)\s*([0-9]*)\s*([0-9a-zA-Z-]*)\s*([0-9a-zA-Z-]*)\s*([0-9]*)\s*([A-Za-z]*)\s*([0-9]*)\s*([0-9A-Za-z:]*)\s*(\S+)#;
|
|
|
|
my $perm = $1;
|
|
my $inode = $2;
|
|
@@ -180,7 +181,7 @@
|
|
my $name = $9;
|
|
my $linkTarget;
|
|
|
|
- if ( $' =~ m#\s*->\s*([A-Za-z0-9.-/]*)# ) # it's a symlink
|
|
+ if ( $' =~ m#\s*->\s*([A-Za-z0-9.\-/]*)# ) # it's a symlink
|
|
{ $linkTarget = $1; }
|
|
|
|
$HoH{$name}{perm} = $perm;
|