From 705f4ce1f314f76082ae265c6f8ac2b39bcbbaba Mon Sep 17 00:00:00 2001 From: Cheng-Lung Sung Date: Mon, 16 Nov 2009 07:55:07 +0000 Subject: - Update to 0.96 Changes: http://search.cpan.org/dist/Net-Domain-ExpireDate/Changes --- dns/p5-Net-Domain-ExpireDate/Makefile | 3 +++ .../files/patch-lib-Net-Domain-ExpireDate.pm | 23 ++++++++++++++++++++++ 2 files changed, 26 insertions(+) create mode 100644 dns/p5-Net-Domain-ExpireDate/files/patch-lib-Net-Domain-ExpireDate.pm (limited to 'dns') 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 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"; -- cgit v1.2.3