diff options
| author | clsung <clsung@FreeBSD.org> | 2009-11-16 15:55:07 +0800 |
|---|---|---|
| committer | clsung <clsung@FreeBSD.org> | 2009-11-16 15:55:07 +0800 |
| commit | 27014f197ed7aecf0072d326b68764871889d840 (patch) | |
| tree | 46148c540b00338845323148344a8fbd8e684256 /dns | |
| parent | d87182b50a890de394e36a8055af34d6cd49910d (diff) | |
| download | freebsd-ports-gnome-27014f197ed7aecf0072d326b68764871889d840.tar.gz freebsd-ports-gnome-27014f197ed7aecf0072d326b68764871889d840.tar.zst freebsd-ports-gnome-27014f197ed7aecf0072d326b68764871889d840.zip | |
- Update to 0.96
Changes: http://search.cpan.org/dist/Net-Domain-ExpireDate/Changes
Diffstat (limited to 'dns')
| -rw-r--r-- | dns/p5-Net-Domain-ExpireDate/Makefile | 3 | ||||
| -rw-r--r-- | dns/p5-Net-Domain-ExpireDate/files/patch-lib-Net-Domain-ExpireDate.pm | 23 |
2 files changed, 26 insertions, 0 deletions
diff --git a/dns/p5-Net-Domain-ExpireDate/Makefile b/dns/p5-Net-Domain-ExpireDate/Makefile index f43e159e9208..c2dc7ad96692 100644 --- a/dns/p5-Net-Domain-ExpireDate/Makefile +++ b/dns/p5-Net-Domain-ExpireDate/Makefile @@ -23,4 +23,7 @@ PERL_CONFIGURE= yes MAN3= Net::Domain::ExpireDate.3 +post-patch: + @${FIND} ${WRKSRC} -name "*.orig" -delete + .include <bsd.port.mk> diff --git a/dns/p5-Net-Domain-ExpireDate/files/patch-lib-Net-Domain-ExpireDate.pm b/dns/p5-Net-Domain-ExpireDate/files/patch-lib-Net-Domain-ExpireDate.pm new file mode 100644 index 000000000000..3942c0370375 --- /dev/null +++ b/dns/p5-Net-Domain-ExpireDate/files/patch-lib-Net-Domain-ExpireDate.pm @@ -0,0 +1,23 @@ +--- lib/Net/Domain/ExpireDate.pm.orig 2009-11-16 00:19:34.303198027 +0900 ++++ lib/Net/Domain/ExpireDate.pm 2009-11-16 00:23:56.700841208 +0900 +@@ -130,6 +130,9 @@ + if ($tld eq 'ru' || $tld eq 'su') { + return (dates_int_ru( $whois )); + } else { # 'com', 'net', 'org', 'biz', 'info', 'us', 'uk', 'cc' ++ if ( $tld eq 'jp' ) { ++ eval {$whois = Encode::encode('iso-2022-jp', $whois) if Encode::is_utf8($whois);}; ++ } + my $expdate = $flags & FLG_EXPDATE ? expdate_int_cno( $whois ) : undef; + my $credate = $flags & FLG_CREDATE ? credate_int_cno( $whois ) : undef; + return ($credate, $expdate); +@@ -284,7 +287,9 @@ + # [whois.jprs.jp] [....] 2006/12/31 + } elsif ($whois =~ m|\[\x1b\x24\x42\x4d\x2d\x38\x7a\x34\x7c\x38\x42\x1b\x28\x42\]\s+(\d{4})/(\d{2})/(\d{2})|s) { + $rulenum = 7.4; $Y = $1; $m = $2; $d = $3; +- } ++ } elsif ($whois =~ m|\[\x1b\x24\x42\x3e\x75\x42\x56\x1b\x28\x42\]\s+.*\s+\((\d{4})/(\d{2})/(\d{2})|s) { ++ $rulenum = 7.5; $Y = $1; $m = $2; $d = $3; ++ } + + unless ($rulenum) { + warn "Can't recognise expiration date format: $whois\n"; |