diff options
| author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2003-06-01 22:33:12 +0000 |
|---|---|---|
| committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2003-06-01 22:33:12 +0000 |
| commit | 16d9d39d9273222fbd9bf45a2826b7540729d1ba (patch) | |
| tree | 5f85468224e0a8d399aa33acb9e29d2e644173d3 /ftp/p5-Net-FTP-Common | |
| parent | 0d76eed8424c32046b622b21c2ac0487e892657a (diff) | |
| download | ports-16d9d39d9273222fbd9bf45a2826b7540729d1ba.tar.gz ports-16d9d39d9273222fbd9bf45a2826b7540729d1ba.zip | |
Fix to work dir() method correctly.
Notes
Notes:
svn path=/head/; revision=81943
Diffstat (limited to 'ftp/p5-Net-FTP-Common')
| -rw-r--r-- | ftp/p5-Net-FTP-Common/Makefile | 1 | ||||
| -rw-r--r-- | ftp/p5-Net-FTP-Common/files/patch-Common.pm | 21 |
2 files changed, 22 insertions, 0 deletions
diff --git a/ftp/p5-Net-FTP-Common/Makefile b/ftp/p5-Net-FTP-Common/Makefile index 0acecefd841c..a6ff45fbd7c5 100644 --- a/ftp/p5-Net-FTP-Common/Makefile +++ b/ftp/p5-Net-FTP-Common/Makefile @@ -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 diff --git a/ftp/p5-Net-FTP-Common/files/patch-Common.pm b/ftp/p5-Net-FTP-Common/files/patch-Common.pm new file mode 100644 index 000000000000..12e0a5670515 --- /dev/null +++ b/ftp/p5-Net-FTP-Common/files/patch-Common.pm @@ -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; |