diff options
| author | kuriyama <kuriyama@FreeBSD.org> | 2003-08-01 14:53:42 +0800 |
|---|---|---|
| committer | kuriyama <kuriyama@FreeBSD.org> | 2003-08-01 14:53:42 +0800 |
| commit | 712fc98e09c4537326097f41b3cf64f2b9a40018 (patch) | |
| tree | ee1590b4e0fef25723ea090e2b450fc60b1c7c4b | |
| parent | 774c575b1742c8d6b7e60e1a859fb7f58718c460 (diff) | |
| download | freebsd-ports-gnome-712fc98e09c4537326097f41b3cf64f2b9a40018.tar.gz freebsd-ports-gnome-712fc98e09c4537326097f41b3cf64f2b9a40018.tar.zst freebsd-ports-gnome-712fc98e09c4537326097f41b3cf64f2b9a40018.zip | |
Improve dir() function.
| -rw-r--r-- | ftp/p5-Net-FTP-Common/Makefile | 2 | ||||
| -rw-r--r-- | ftp/p5-Net-FTP-Common/files/patch-Common.pm | 2 |
2 files changed, 2 insertions, 2 deletions
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; |