diff options
| author | kuriyama <kuriyama@FreeBSD.org> | 2003-06-02 06:33:12 +0800 |
|---|---|---|
| committer | kuriyama <kuriyama@FreeBSD.org> | 2003-06-02 06:33:12 +0800 |
| commit | 4c3f53b6fdede3fd9afdb523da034e3d530bd6a9 (patch) | |
| tree | 01fe52495ece2d1b76a560c0fe9bd8d7281a2b16 | |
| parent | 6e9b12404cf7fdf5faded3975155809a84bdeb92 (diff) | |
| download | freebsd-ports-gnome-4c3f53b6fdede3fd9afdb523da034e3d530bd6a9.tar.gz freebsd-ports-gnome-4c3f53b6fdede3fd9afdb523da034e3d530bd6a9.tar.zst freebsd-ports-gnome-4c3f53b6fdede3fd9afdb523da034e3d530bd6a9.zip | |
Fix to work dir() method correctly.
| -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; |