Commit 6825b0c77773ab36c7198ee0e31e93ba6e36701c - libmail-dkim-perl

Fix for pre perl 5.10 Marc Bradshaw 6 years ago

2 changed file(s) with 4 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-1

lib/Mail/DKIM/Canonicalization/seal.pm less more

71	71	my $i = $self->{Signature}->identity();
72	72	return unless $i =~ m{^\d+$}; # don't waste time if i= is bogus
73	73
74		my $chain = $args{Chain} // $self->{Signature}->chain();
	74	my $chain = $args{Chain};
	75	$chain = $self->{Signature}->chain() if ! defined $chain;
75	76
76	77	# we include the seal for everything else
77	78	# if the previous status was pass

-1

t/ArcTestSuite.pm less more

32	32	my ( $class, %args ) = @_;
33	33	my $self = {};
34	34	bless $self, $class;
35		$self->{Strict} = $args{"Strict"} // 1;
	35	$self->{Strict} = $args{"Strict"};
	36	$self->{Strict} = 1 if ! defined $self->{Strict};
36	37	return $self;
37	38	}
38	39