"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Net/DNS/RR/NSEC3.pm" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

NSEC3.pm  (Net-DNS-1.23):NSEC3.pm  (Net-DNS-1.23_01)
package Net::DNS::RR::NSEC3; package Net::DNS::RR::NSEC3;
# #
# $Id: NSEC3.pm 1749 2019-07-21 09:15:55Z willem $ # $Id: NSEC3.pm 1781 2020-05-13 08:58:25Z willem $
# #
our $VERSION = (qw$LastChangedRevision: 1749 $)[1]; our $VERSION = (qw$LastChangedRevision: 1781 $)[1];
use strict; use strict;
use warnings; use warnings;
use base qw(Net::DNS::RR::NSEC); use base qw(Net::DNS::RR::NSEC);
=head1 NAME =head1 NAME
Net::DNS::RR::NSEC3 - DNS NSEC3 resource record Net::DNS::RR::NSEC3 - DNS NSEC3 resource record
=cut =cut
skipping to change at line 135 skipping to change at line 135
sub flags { sub flags {
my $self = shift; my $self = shift;
$self->{flags} = 0 + shift if scalar @_; $self->{flags} = 0 + shift if scalar @_;
$self->{flags} || 0; $self->{flags} || 0;
} }
sub optout { sub optout {
for ( shift->{flags} ) { for ( shift->{flags} ) {
$_ = ( shift() ? 0 : 0x01 ) ^ ( 0x01 | ( $_ || 0 ) ) if scalar @_ ; $_ = ( $_[0] ? 0 : 0x01 ) ^ ( 0x01 | ( $_ || 0 ) ) if scalar @_;
return 0x01 & ( $_ || 0 ); return 0x01 & ( $_ || 0 );
} }
} }
sub iterations { sub iterations {
my $self = shift; my $self = shift;
$self->{iterations} = 0 + shift if scalar @_; $self->{iterations} = 0 + shift if scalar @_;
$self->{iterations} || 0; $self->{iterations} || 0;
} }
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)