"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/SpamAssassin/Util.pm" between
Mail-SpamAssassin-3.4.4.tar.bz2 and Mail-SpamAssassin-3.4.5.tar.bz2

About: SpamAssassin is a mail filter that uses a wide range of heuristic tests on mail headers and body text to identify "spam" (also known as unsolicited commercial email) incl. Bayesian (statistical) spam filter and several internet-based realtime blacklists.

Util.pm  (Mail-SpamAssassin-3.4.4.tar.bz2):Util.pm  (Mail-SpamAssassin-3.4.5.tar.bz2)
skipping to change at line 340 skipping to change at line 340
} }
########################################################################### ###########################################################################
sub taint_var { sub taint_var {
my ($v) = @_; my ($v) = @_;
return $v unless defined $v; # can't taint "undef" return $v unless defined $v; # can't taint "undef"
# $^X is apparently "always tainted". # $^X is apparently "always tainted".
# Concatenating an empty tainted string taints the result. # Concatenating an empty tainted string taints the result.
return $v . substr($^X, 0, 0); # Bug 7806: use $fh trick to enforce for older Perl
my $t = eval { local $/; open my $fh, '<', \""; <$fh>; };
$t = '' unless defined $t;
return $v . $t . substr($^X, 0, 0);
} }
########################################################################### ###########################################################################
# Check for full hostname / FQDN / DNS name validity. IP addresses must be # Check for full hostname / FQDN / DNS name validity. IP addresses must be
# validated with other functions like $IP_ADDRESS. Does not check for valid # validated with other functions like $IP_ADDRESS. Does not check for valid
# TLD, use $self->{main}->{registryboundaries}->is_domain_valid() # TLD, use $self->{main}->{registryboundaries}->is_domain_valid()
# additionally for that. # additionally for that.
sub is_fqdn_valid { sub is_fqdn_valid {
my ($host) = @_; my ($host) = @_;
 End of changes. 1 change blocks. 
1 lines changed or deleted 4 lines changed or added

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