diff options
-rw-r--r-- | dns/p5-Net-DNS/Makefile | 13 | ||||
-rw-r--r-- | dns/p5-Net-DNS/distinfo | 6 | ||||
-rw-r--r-- | dns/p5-Net-DNS/files/bytes.pm | 91 | ||||
-rw-r--r-- | dns/p5-Net-DNS/files/bytes_heavy.pl | 43 |
4 files changed, 4 insertions, 149 deletions
diff --git a/dns/p5-Net-DNS/Makefile b/dns/p5-Net-DNS/Makefile index 1fa154242733..70832c3aaa20 100644 --- a/dns/p5-Net-DNS/Makefile +++ b/dns/p5-Net-DNS/Makefile @@ -6,7 +6,7 @@ # PORTNAME= Net-DNS -PORTVERSION= 0.61 +PORTVERSION= 0.62 CATEGORIES= dns net perl5 ipv6 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Net @@ -51,20 +51,9 @@ OPTIONS= IPV6 "Enable functionality over IPv6 transport" on RUN_DEPENDS+= ${SITE_PERL}/IO/Socket/INET6.pm:${PORTSDIR}/net/p5-IO-INET6 .endif -.if ${PERL_LEVEL} < 500800 -PLIST_SUB+= BYTES_INSTALL="" -.else -PLIST_SUB+= BYTES_INSTALL="@comment " -.endif - DOCSDIR= ${PREFIX}/share/doc/p5-Net-DNS post-install: -.if ${PERL_LEVEL} < 500800 -.for file in bytes.pm bytes_heavy.pl - ${INSTALL_DATA} ${FILESDIR}/${file} ${SITE_PERL} -.endfor -.endif .if !defined(NOPORTDOCS) @${MKDIR} ${DOCSDIR} .for doc in Changes README TODO diff --git a/dns/p5-Net-DNS/distinfo b/dns/p5-Net-DNS/distinfo index 313360c85e8f..97142bbe6762 100644 --- a/dns/p5-Net-DNS/distinfo +++ b/dns/p5-Net-DNS/distinfo @@ -1,3 +1,3 @@ -MD5 (Net-DNS-0.61.tar.gz) = a7d75eb3bdf7aca5d0696b95e3fabf65 -SHA256 (Net-DNS-0.61.tar.gz) = 1837a47bb0510e15d590500d94cdca605fcf89e0c88f061127b9b81982e5679b -SIZE (Net-DNS-0.61.tar.gz) = 145400 +MD5 (Net-DNS-0.62.tar.gz) = 91366517392283a909ee37d3c1c64904 +SHA256 (Net-DNS-0.62.tar.gz) = 2ee22c790cacb7e31e799217577a495da8c48fc82701b37f3e23fa8e0b2fe5ae +SIZE (Net-DNS-0.62.tar.gz) = 148827 diff --git a/dns/p5-Net-DNS/files/bytes.pm b/dns/p5-Net-DNS/files/bytes.pm deleted file mode 100644 index ca1ac5c2c4f9..000000000000 --- a/dns/p5-Net-DNS/files/bytes.pm +++ /dev/null @@ -1,91 +0,0 @@ -# This is the file from Perl 5.8.7, installed -# by the p5-Net-DNS module for Perl < 5.6. - -package bytes; - -#our $VERSION = '1.02'; - -$bytes::hint_bits = 0x00000008; - -sub import { - $^H |= $bytes::hint_bits; -} - -sub unimport { - $^H &= ~$bytes::hint_bits; -} - -sub AUTOLOAD { - require "bytes_heavy.pl"; - goto &$AUTOLOAD if defined &$AUTOLOAD; - require Carp; - Carp::croak("Undefined subroutine $AUTOLOAD called"); -} - -sub length ($); -sub chr ($); -sub ord ($); -sub substr ($$;$$); -sub index ($$;$); -sub rindex ($$;$); - -1; -__END__ - -=head1 NAME - -bytes - Perl pragma to force byte semantics rather than character semantics - -=head1 SYNOPSIS - - use bytes; - ... chr(...); # or bytes::chr - ... index(...); # or bytes::index - ... length(...); # or bytes::length - ... ord(...); # or bytes::ord - ... rindex(...); # or bytes::rindex - ... substr(...); # or bytes::substr - no bytes; - - -=head1 DESCRIPTION - -The C<use bytes> pragma disables character semantics for the rest of the -lexical scope in which it appears. C<no bytes> can be used to reverse -the effect of C<use bytes> within the current lexical scope. - -Perl normally assumes character semantics in the presence of character -data (i.e. data that has come from a source that has been marked as -being of a particular character encoding). When C<use bytes> is in -effect, the encoding is temporarily ignored, and each string is treated -as a series of bytes. - -As an example, when Perl sees C<$x = chr(400)>, it encodes the character -in UTF-8 and stores it in $x. Then it is marked as character data, so, -for instance, C<length $x> returns C<1>. However, in the scope of the -C<bytes> pragma, $x is treated as a series of bytes - the bytes that make -up the UTF8 encoding - and C<length $x> returns C<2>: - - $x = chr(400); - print "Length is ", length $x, "\n"; # "Length is 1" - printf "Contents are %vd\n", $x; # "Contents are 400" - { - use bytes; # or "require bytes; bytes::length()" - print "Length is ", length $x, "\n"; # "Length is 2" - printf "Contents are %vd\n", $x; # "Contents are 198.144" - } - -chr(), ord(), substr(), index() and rindex() behave similarly. - -For more on the implications and differences between character -semantics and byte semantics, see L<perluniintro> and L<perlunicode>. - -=head1 LIMITATIONS - -bytes::substr() does not work as an lvalue(). - -=head1 SEE ALSO - -L<perluniintro>, L<perlunicode>, L<utf8> - -=cut diff --git a/dns/p5-Net-DNS/files/bytes_heavy.pl b/dns/p5-Net-DNS/files/bytes_heavy.pl deleted file mode 100644 index e0bdf4b66523..000000000000 --- a/dns/p5-Net-DNS/files/bytes_heavy.pl +++ /dev/null @@ -1,43 +0,0 @@ -# This is the file from Perl 5.8.7, installed -# by the p5-Net-DNS module for Perl < 5.6. - -package bytes; - -sub length ($) { - BEGIN { bytes::import() } - return CORE::length($_[0]); -} - -sub substr ($$;$$) { - BEGIN { bytes::import() } - return - @_ == 2 ? CORE::substr($_[0], $_[1]) : - @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) : - CORE::substr($_[0], $_[1], $_[2], $_[3]) ; -} - -sub ord ($) { - BEGIN { bytes::import() } - return CORE::ord($_[0]); -} - -sub chr ($) { - BEGIN { bytes::import() } - return CORE::chr($_[0]); -} - -sub index ($$;$) { - BEGIN { bytes::import() } - return - @_ == 2 ? CORE::index($_[0], $_[1]) : - CORE::index($_[0], $_[1], $_[2]) ; -} - -sub rindex ($$;$) { - BEGIN { bytes::import() } - return - @_ == 2 ? CORE::rindex($_[0], $_[1]) : - CORE::rindex($_[0], $_[1], $_[2]) ; -} - -1; |