Courier-Filter
view release on metacpan or search on metacpan
* Removed Recommends: libdigest-md5-perl (now provided by perl)
* Removed Recommends: libnet-dns-perl (unused)
* Suggests: libnet-address-ip-local-perl
(was: libnet-address-ipv4-local-perl)
> rules:
* Run `$(BUILD) distclean` only if $(BUILD) actually exists.
--- 0.17 (2005-11-11 03:00)
Courier::Filter:
* If socket already exists, check whether it is dead or alive. If it is
dead, remove it and start up normally. If it is alive, die like before.
(Closes: Debian #326785)
* Ignore connections that don't send any data.
Courier::Message:
* Decode header text as "UTF-8" encoded, not as "utf8" encoded. Starting
with Perl 5.8.7, this does make a difference. "utf8" allows invalid
Unicode codepoints (such as UTF-16 surrogates), while "UTF-8" (the official
standard UTF-8) doesn't. We want to avoid invalid codepoints because they
tend to cause trouble later.
* Don't die on invalid characters in encoded-word chunks. If an encoded-word
debian/changelog view on Meta::CPAN
-- Julian Mehnle <julian@mehnle.net> Sun, 23 Mar 2008 00:36:39 +0000
courier-filter-perl (0.17) unstable; urgency=low
Debian:
* Recommends: libmime-perl, not libmime-tools-perl. (Closes: #297730)
* Recommends: libio-stringy-perl (>= 2.110), libmail-spamassassin-perl,
libarchive-zip-perl.
Courier::Filter:
* If socket already exists, check whether it is dead or alive. If it is
dead, remove it and start up normally. If it is alive, die like before.
(Closes: #326785)
* Ignore connections that don't send any data.
Courier::Message:
* Decode header text as "UTF-8" encoded, not as "utf8" encoded. Starting
with Perl 5.8.7, this does make a difference. "utf8" allows invalid
Unicode codepoints (such as UTF-16 surrogates), while "UTF-8" (the official
standard UTF-8) doesn't. We want to avoid invalid codepoints because they
tend to cause trouble later.
* Don't die on invalid characters in encoded-word chunks. If an encoded-word
lib/Courier/Filter.pm view on Meta::CPAN
my $socket_prename = "$socket_dir/.$name";
my $socket_name = "$socket_dir/$name";
my $socket_prename_unused = "$socket_dir_unused/.$name";
my $socket_name_unused = "$socket_dir_unused/$name";
if (-e $socket_name) {
-S $socket_name
or throw Courier::Error("$socket_name already exists but is not a socket");
# Try to connect to socket to see if it is alive or
# if it is left over from a crashed Courier::Filter:
my $test_socket = IO::Socket::UNIX->new( Peer => $socket_name );
not defined($test_socket)
or throw Courier::Error("Live socket $socket_name found -- is Courier::Filter already running?");
# Socket exists but is dead. Remove it:
unlink($socket_name);
}
( run in 1.727 second using v1.01-cache-2.11-cpan-39bf76dae61 )