1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00

Improve dir() function.

This commit is contained in:
Jun Kuriyama 2003-08-01 06:53:42 +00:00
parent 946746b750
commit 690005375e
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=86107
2 changed files with 2 additions and 2 deletions

View File

@ -7,7 +7,7 @@
PORTNAME= Net-FTP-Common
PORTVERSION= 2.28
PORTREVISION= 1
PORTREVISION= 2
CATEGORIES= ftp perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= ../../authors/id/T/TB/TBONE

View File

@ -6,7 +6,7 @@
# $_ =~ 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+)#;
+ $_ =~ 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;