# unmaintained, bug #616550. Removal in a month.
net-libs/txtorcon
-# Pacho Ramos <pacho@gentoo.org> (14 Jul 2017)
-# Not compatible with current perl (#616900). Removal in a month.
-www-client/w3mir
-
# Pacho Ramos <pacho@gentoo.org> (14 Jul 2017)
# Dead for ages, relies on dead libs (#622010), you can move to moserial, cutecom or
# minicom. Removal in 2 months.
+++ /dev/null
-DIST w3mir-1.0.10.tar.gz 82791 SHA256 c6a58939a89b2b469db54c639e63438f4fcba3c79ebcea69675d7115ba48369d SHA512 01d579f9e9b4472f2ed51e5d980d29fca9957004a946a5608ffc417930fed7cc545cd2f924ce2f2a3ad5fe2e64792bc2b95b133d883f9fa7d5b30247e5f2aa10 WHIRLPOOL 50c7a5d6a181b7a724c562d2f0346074113f17cbefda95c74a1e2b243527cd226b1ad9ee2dba22090bbf707e166811025037f9dea397520600af499812995502
+++ /dev/null
---- w3mir.PL 2005-12-10 20:39:58.000000000 +0100
-+++ w3mir.PL 2005-12-11 12:49:26.000000000 +0100
-@@ -209,6 +209,8 @@
- use URI::URL;
- # For flush method
- use FileHandle;
-+# for determining current working directory
-+use Cwd;
-
- eval '
- use URI;
-@@ -581,7 +583,8 @@
- unless ref $rum_url_o;
-
- # Derive a filename from the url, the filename contains no URL-quoting
-- my($lf_name) = (url "file:$lf_url")->unix_path;
-+ # filename is relative to current working directory
-+ my($lf_name) = (url "file:".getcwd()."/$lf_url")->unix_path;
-
- # Make all intermediate directories
- &mkdir($lf_name) if $s==0;
-@@ -680,9 +683,7 @@
- push(@EXTRASTUFF,$w3http::NOUSER)
- unless ($do_user);
-
-- # YES, $lf_url is right, w3http::query handles this like an url so
-- # the quoting must all be in place.
-- my $binfile=$lf_url;
-+ my $binfile=$lf_name;
- $binfile='-' if $s==1;
- $binfile=$nulldevice if $s==2;
-
+++ /dev/null
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
-<pkgmetadata>
-<!-- maintainer-needed -->
-</pkgmetadata>
+++ /dev/null
-# Copyright 1999-2017 Gentoo Foundation
-# Distributed under the terms of the GNU General Public License v2
-
-EAPI=5
-
-GENTOO_DEPEND_ON_PERL_SUBSLOT=yes
-inherit eutils perl-app
-
-DESCRIPTION="w3mir is a all purpose HTTP copying and mirroring tool"
-SRC_URI="http://langfeldt.net/w3mir/${P}.tar.gz"
-HOMEPAGE="http://langfeldt.net/w3mir/"
-
-SLOT="0"
-LICENSE="Artistic"
-KEYWORDS="alpha ~amd64 ppc ~sparc x86 ~arm-linux ~x86-linux"
-
-DEPEND="${DEPEND}
- >=dev-perl/URI-1.0.9
- >=dev-perl/libwww-perl-5.64-r1
- >=virtual/perl-MIME-Base64-2.12"
-
-src_prepare() {
-
- epatch "${FILESDIR}/${P}-cwd.diff"
-}