Browse Source

Add IPv6 support to popcon-upload by using IO::Socket::IP

suites/ascii
Bill Allombert 8 years ago
parent
commit
9c4952730d
  1. 13
      debian/changelog
  2. 2
      debian/control
  3. 6
      popcon-upload

13
debian/changelog

@ -1,8 +1,15 @@
popularity-contest (1.61) UNRELEASED; urgency=low
*
-- Bill Allombert <ballombe@debian.org> Sat, 05 Oct 2013 17:05:24 +0200
* Add support for IPv6. Closes: #730760.
- popcon-upload:
Use IO::Socket::IP instead of IO::Socket::INET in popcon-upload.
+ debian/control:
- Add a dependency on libio-socket-ip-perl (>= 0.25-3).
This module is targeted for inclusion in perl-base.
* examples/bin/popcon.pl:
- New popcon.debian.org layout by Stéphane Blondon
-- Bill Allombert <ballombe@debian.org> Thu, 20 Feb 2014 18:28:47 +0100
popularity-contest (1.60) unstable; urgency=low

2
debian/control

@ -10,7 +10,7 @@ Standards-Version: 3.9.4
Package: popularity-contest
Architecture: all
Pre-Depends: debconf (>= 1.5.34) | cdebconf (>= 0.106)
Depends: ${misc:Depends}, ${perl:Depends}, dpkg (>= 1.10)
Depends: ${misc:Depends}, ${perl:Depends}, dpkg (>= 1.10), libio-socket-ip-perl (>= 0.25-3)
Recommends: gnupg, cron | fcron, exim4 | mail-transport-agent
Suggests: anacron
Provides: popcon

6
popcon-upload

@ -3,7 +3,7 @@
# This file is placed in the public domain.
use strict;
use IO::Socket;
use IO::Socket::IP;
my %opts;
@ -72,8 +72,8 @@ $SIG{ALRM} = sub { die "timeout in popcon-upload\n" };
alarm(30);
# Connect to server
$remote = IO::Socket::INET->new(Proto => "tcp", PeerAddr => $proxy,
PeerPort => $port);
$remote = IO::Socket::IP->new(Proto => "tcp", PeerAddr => $proxy,
PeerPort => $port);
unless ($remote) { die "cannot connect to $proxy:$port" }
my $boundary = "----------ThIs_Is_tHe_bouNdaRY_\$";

Loading…
Cancel
Save