blob: 7e1d166a23f9c0c5e53d92086955368d6c2de682 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- 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;
|
