Dirk Stoecker
38f3812024
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/spamassassin?expand=0&rev=97
57 lines
2.1 KiB
Diff
57 lines
2.1 KiB
Diff
diff -ur spampd-2.42/spampd.html spampd-2.42_20170226/spampd.html
|
|
--- spampd-2.42.orig/spampd.html 2013-12-08 12:34:02.000000000 +0100
|
|
+++ spampd-2.42/spampd.html 2015-10-18 01:22:58.000000000 +0200
|
|
@@ -96,7 +96,7 @@
|
|
<DD>
|
|
<DT><STRONG><A NAME="item_IO%3A%3AFile"><STRONG>IO::File</STRONG></A></STRONG><BR>
|
|
<DD>
|
|
-<DT><STRONG><A NAME="item_IO%3A%3ASocket"><STRONG>IO::Socket</STRONG></A></STRONG><BR>
|
|
+<DT><STRONG><A NAME="item_IO%3A%3ASocket"><STRONG>IO::Socket::IP</STRONG></A></STRONG><BR>
|
|
<DD>
|
|
<DT><STRONG><A NAME="item_HiRes"><STRONG>Time::HiRes</STRONG> (not actually required but recommended)</A></STRONG><BR>
|
|
<DD>
|
|
diff -ur spampd-2.42/spampd.pl spampd-2.42_20170226/spampd.pl
|
|
--- spampd-2.42/spampd.pl 2013-12-08 12:34:02.000000000 +0100
|
|
+++ spampd-2.42_20170226/spampd.pl 2015-10-18 01:22:58.000000000 +0200
|
|
@@ -307,19 +307,19 @@
|
|
# =cut
|
|
|
|
use strict;
|
|
-use IO::Socket;
|
|
+use IO::Socket::IP;
|
|
|
|
# =item new(interface => $interface, port => $port[, timeout = 300]);
|
|
#
|
|
# The interface and port to talk to must be specified. The interface
|
|
# must be a valid numeric IP address; the port must be numeric. If
|
|
# this call succeeds, it returns a client structure with an open
|
|
-# IO::Socket::INET in it, ready to talk to. If it fails it dies,
|
|
+# IO::Socket::IP in it, ready to talk to. If it fails it dies,
|
|
# so if you want anything other than an exit with an explanatory
|
|
# error message, wrap the constructor call in an eval block and pull
|
|
# the error out of $@ as usual. This is also the case for all other
|
|
# methods; they succeed or they die. The timeout parameter is passed
|
|
-# on into the IO::Socket::INET constructor.
|
|
+# on into the IO::Socket::IP constructor.
|
|
#
|
|
# =cut
|
|
|
|
@@ -327,7 +327,7 @@
|
|
my ($this, @opts) = @_;
|
|
my $class = ref($this) || $this;
|
|
my $self = bless { timeout => 300, @opts }, $class;
|
|
- $self->{sock} = IO::Socket::INET->new(
|
|
+ $self->{sock} = IO::Socket::IP->new(
|
|
PeerAddr => $self->{interface},
|
|
PeerPort => $self->{port},
|
|
Timeout => $self->{timeout},
|
|
@@ -1171,7 +1171,7 @@
|
|
|
|
=item B<IO::File>
|
|
|
|
-=item B<IO::Socket>
|
|
+=item B<IO::Socket::IP>
|
|
|
|
=item B<Time::HiRes> (not actually required but recommended)
|
|
|