mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-20 20:09:11 +00:00
Code Issues Releases Activity

Fix to work dir() method correctly.

Browse Source
This commit is contained in:
Jun Kuriyama 2003-06-01 22:33:12 +00:00
parent 0d76eed842
commit 16d9d39d92
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=81943
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ftp/p5-Net-FTP-Common/Makefile
View File

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

21
ftp/p5-Net-FTP-Common/files/patch-Common.pm Normal file
View File

@ -0,0 +1,21 @@
--- lib/Net/FTP/Common.pm.orig Mon Jun 2 07:28:01 2003
+++ lib/Net/FTP/Common.pm Mon Jun 2 07:28:04 2003
@@ -157,7 +157,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;
@@ -170,7 +171,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;