aboutsummaryrefslogtreecommitdiff
path: root/ftp/p5-Net-FTP-Common
diff options
context:
space:
mode:
authorJun Kuriyama <kuriyama@FreeBSD.org>2003-06-01 22:33:12 +0000
committerJun Kuriyama <kuriyama@FreeBSD.org>2003-06-01 22:33:12 +0000
commit16d9d39d9273222fbd9bf45a2826b7540729d1ba (patch)
tree5f85468224e0a8d399aa33acb9e29d2e644173d3 /ftp/p5-Net-FTP-Common
parent0d76eed8424c32046b622b21c2ac0487e892657a (diff)
downloadports-16d9d39d9273222fbd9bf45a2826b7540729d1ba.tar.gz
ports-16d9d39d9273222fbd9bf45a2826b7540729d1ba.zip
Notes
Diffstat (limited to 'ftp/p5-Net-FTP-Common')
-rw-r--r--ftp/p5-Net-FTP-Common/Makefile1
-rw-r--r--ftp/p5-Net-FTP-Common/files/patch-Common.pm21
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;