From 690005375ec62ed789e16e6036ea995cfd8c3171 Mon Sep 17 00:00:00 2001 From: Jun Kuriyama Date: Fri, 1 Aug 2003 06:53:42 +0000 Subject: Improve dir() function. --- ftp/p5-Net-FTP-Common/Makefile | 2 +- ftp/p5-Net-FTP-Common/files/patch-Common.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'ftp') diff --git a/ftp/p5-Net-FTP-Common/Makefile b/ftp/p5-Net-FTP-Common/Makefile index a6ff45fbd7c5..bc32d6b0269f 100644 --- a/ftp/p5-Net-FTP-Common/Makefile +++ b/ftp/p5-Net-FTP-Common/Makefile @@ -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 diff --git a/ftp/p5-Net-FTP-Common/files/patch-Common.pm b/ftp/p5-Net-FTP-Common/files/patch-Common.pm index 12e0a5670515..50dfd388f98e 100644 --- a/ftp/p5-Net-FTP-Common/files/patch-Common.pm +++ b/ftp/p5-Net-FTP-Common/files/patch-Common.pm @@ -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; -- cgit v1.2.3