dev-perl/Fuse: -r bump for various toolchain love and bug fixes

- Fix incorrect LICENSE
- Use sys-fs/fuse:0 as the code doesn't bind against fuse:3, even if
  present.
- Strip unwanted tests
- Disable parallel testing (has a defined order where an script ensures
  the "mount" test is run before all others, and an "unmount" script run
  at the end for cleanup, and jumbling this order messes everything up.
- Fix tests failing to load without '.' in @INC
- Patch test code to work in "${T}" instead of /tmp/, and guard against
  lots of problems with bad path handling that could fail due to shell
  interpolation, as well as avoiding a few unneeded calls to dumb things
  like qx{cat foo} which works better done natively in perl
- Borrow debians ioctl patch which may be tripping up musl
- Ensure CFLAGS passed to make/compiler
- Avoid running test suite under FEATURES="usersandbox" as the need to
  run fuse and mount filesystems for testing

Bug: https://bugs.gentoo.org/699664
Bug: https://bugs.gentoo.org/712738
Bug: https://bugs.gentoo.org/720770
Package-Manager: Portage-3.0.4, Repoman-3.0.1
Signed-off-by: Kent Fredric <kentnl@gentoo.org>

4 files changed, 532 insertions, 0 deletions

diff --git a/dev-perl/Fuse/Fuse-0.16.1-r2.ebuild b/dev-perl/Fuse/Fuse-0.16.1-r2.ebuild
new file mode 100644
index 000000000000..c4b3462bcde1
--- /dev/null
+++ b/dev-perl/Fuse/Fuse-0.16.1-r2.ebuild
@@ -0,0 +1,62 @@
+# Copyright 1999-2020 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=7
+
+DIST_AUTHOR=DPATES
+inherit perl-module
+
+DESCRIPTION="Fuse module for perl"
+
+SLOT="0"
+LICENSE="LGPL-2.1"
+KEYWORDS="~amd64 ~x86"
+IUSE="test"
+RESTRICT="!test? ( test )"
+
+RDEPEND="
+	sys-fs/fuse:0=
+	dev-perl/Filesys-Statvfs
+	dev-perl/Lchown
+	dev-perl/Unix-Mknod
+"
+DEPEND="
+	sys-fs/fuse:0=
+"
+BDEPEND="
+	virtual/perl-ExtUtils-MakeMaker
+	test? (
+		${RDEPEND}
+	)
+"
+PATCHES=(
+	"${FILESDIR}/${PN}-0.16.1-no-dot-inc-tests.patch"
+	"${FILESDIR}/${PN}-0.16.1-tempdir-override.patch"
+	"${FILESDIR}/${PN}-0.16.1-ioctl-header.patch"
+)
+PERL_RM_FILES=(
+	test/pod.t
+)
+
+src_compile() {
+	mymake=(
+		"OPTIMIZE=${CFLAGS}"
+	)
+	perl-module_src_compile
+}
+
+src_test() {
+	if has usersandbox ${FEATURES}; then
+		ewarn "'FEATURES=usersandbox' detected, skipping tests"
+		return
+	fi
+	export FUSE_TEMPDIR="${T}/fuse"
+	mkdir -p "${FUSE_TEMPDIR}" || die "Can't mkdir ${FUSE_TEMPDIR}"
+	export FUSE_MOUNTPOINT="${FUSE_TEMPDIR}/fuse-mount"
+	export FUSE_TESTMOUNT="${FUSE_TEMPDIR}/fuse-test"
+	export FUSE_PIDFILE="${FUSE_TEMPDIR}/mounted.pid"
+	export FUSE_LOGFILE="${FUSE_TEMPDIR}/fusemnt.log"
+	# Strict ordering required
+	export DIST_TEST="do verbose"
+	perl-module_src_test
+}
diff --git a/dev-perl/Fuse/files/Fuse-0.16.1-ioctl-header.patch b/dev-perl/Fuse/files/Fuse-0.16.1-ioctl-header.patch
new file mode 100644
index 000000000000..4a9f6a09cc6c
--- /dev/null
+++ b/dev-perl/Fuse/files/Fuse-0.16.1-ioctl-header.patch
@@ -0,0 +1,22 @@
+From ecddb700c4551157fb5604c59c38eefc9a99d21b Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Bastien=20Roucari=C3=A8s?= <rouca@debian.org>
+Date: Sun, 1 Jul 2018 22:10:44 +0200
+Subject: Include ioctl header in order to close FTBFS in MIPS
+
+Workarround a glibc bug
+
+Forwarded: no, not-needed
+---
+ Fuse.xs | 2 ++
+ 1 file changed, 2 insertions(+)
+
+diff --git a/Fuse.xs b/Fuse.xs
+index e9cce2e..4504a29 100755
+--- a/Fuse.xs
++++ b/Fuse.xs
+@@ -1,3 +1,5 @@
++#include <sys/ioctl.h>
++
+ #define PERL_NO_GET_CONTEXT
+ #include "EXTERN.h"
+ #include "perl.h"
diff --git a/dev-perl/Fuse/files/Fuse-0.16.1-no-dot-inc-tests.patch b/dev-perl/Fuse/files/Fuse-0.16.1-no-dot-inc-tests.patch
new file mode 100644
index 000000000000..b0526aebcd40
--- /dev/null
+++ b/dev-perl/Fuse/files/Fuse-0.16.1-no-dot-inc-tests.patch
@@ -0,0 +1,286 @@
+From 64eb5b9e760a90a78d4a508bf916242849212b41 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Fri, 18 Sep 2020 04:26:16 +1200
+Subject: Hack around path resolution problems caused by '.' removal
+
+This avoids problems on perl 5.26+ where cwd ('.') is no longer in the
+@INC search path.
+---
+ test/chmod.t    | 3 ++-
+ test/chown.t    | 3 ++-
+ test/getattr.t  | 3 ++-
+ test/getdir.t   | 3 ++-
+ test/helper.pm  | 2 +-
+ test/link.t     | 3 ++-
+ test/mkdir.t    | 3 ++-
+ test/mknod.t    | 3 ++-
+ test/open.t     | 3 ++-
+ test/read.t     | 3 ++-
+ test/readlink.t | 3 ++-
+ test/rename.t   | 3 ++-
+ test/rmdir.t    | 3 ++-
+ test/s/mount.t  | 3 ++-
+ test/s/umount.t | 3 ++-
+ test/statfs.t   | 3 ++-
+ test/symlink.t  | 3 ++-
+ test/truncate.t | 3 ++-
+ test/unlink.t   | 3 ++-
+ test/utime.t    | 3 ++-
+ test/write.t    | 3 ++-
+ 21 files changed, 41 insertions(+), 21 deletions(-)
+
+diff --git a/test/chmod.t b/test/chmod.t
+index 1ccb3ef..26ddbf9 100644
+--- a/test/chmod.t
++++ b/test/chmod.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 4;
+ chdir($_point);
+diff --git a/test/chown.t b/test/chown.t
+index 74adb14..194f2fb 100644
+--- a/test/chown.t
++++ b/test/chown.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ use English;
+ plan tests => 4;
+diff --git a/test/getattr.t b/test/getattr.t
+index 5d8c85d..ba575c1 100644
+--- a/test/getattr.t
++++ b/test/getattr.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ use Data::Dumper;
+ plan tests => 203;
+diff --git a/test/getdir.t b/test/getdir.t
+index e6d402a..789b667 100644
+--- a/test/getdir.t
++++ b/test/getdir.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ my (@names) = qw(abc def ghi jkl mno pqr stu jlk sfdaljk  sdfakjlsdfa kjldsf kjl;sdf akjl;asdf klj;asdf lkjsdflkjsdfkjlsdfakjsdfakjlsadfkjl;asdfklj;asdfkjl;asdfklj;asdfkjl;asdfkjlasdflkj;sadf);
+ @names = sort(@names);
+diff --git a/test/helper.pm b/test/helper.pm
+index d44b486..f210105 100644
+--- a/test/helper.pm
++++ b/test/helper.pm
+@@ -1,6 +1,6 @@
+ #!/usr/bin/perl
+ package # avoid cpan indexing
+-	test::helper;
++	helper;
+ use strict;
+ use Exporter;
+ use Config;
+diff --git a/test/link.t b/test/link.t
+index f617c93..f301ee8 100644
+--- a/test/link.t
++++ b/test/link.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 8;
+ chdir($_point);
+diff --git a/test/mkdir.t b/test/mkdir.t
+index 90ec6f3..b622aa9 100644
+--- a/test/mkdir.t
++++ b/test/mkdir.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 3;
+ chdir($_point);
+diff --git a/test/mknod.t b/test/mknod.t
+index c35853a..7c867c6 100644
+--- a/test/mknod.t
++++ b/test/mknod.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 24;
+ use English;
+diff --git a/test/open.t b/test/open.t
+index b3afaf6..c3b79b6 100644
+--- a/test/open.t
++++ b/test/open.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 1;
+ chdir($_real);
+diff --git a/test/read.t b/test/read.t
+index b4297f3..4477ab7 100644
+--- a/test/read.t
++++ b/test/read.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 3;
+ chdir($_real);
+diff --git a/test/readlink.t b/test/readlink.t
+index 85b9ffc..14457da 100644
+--- a/test/readlink.t
++++ b/test/readlink.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_point $_real);
++use lib './test/';
++use helper qw($_point $_real);
+ use Test::More;
+ plan tests => 4;
+ chdir($_real);
+diff --git a/test/rename.t b/test/rename.t
+index 454da8b..6f61e56 100644
+--- a/test/rename.t
++++ b/test/rename.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ if ($^O eq 'openbsd') { exit(); }
+ plan tests => 5;
+diff --git a/test/rmdir.t b/test/rmdir.t
+index 36f0378..b8a5bfc 100644
+--- a/test/rmdir.t
++++ b/test/rmdir.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 5;
+ chdir($_real);
+diff --git a/test/s/mount.t b/test/s/mount.t
+index 97b47ea..0f545b7 100644
+--- a/test/s/mount.t
++++ b/test/s/mount.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl -w
+-use test::helper qw($_point $_loop $_opts $_real $_pidfile);
++use lib './test/';
++use helper qw($_point $_loop $_opts $_real $_pidfile);
+ use strict;
+ use Errno qw(:POSIX);
+ use Test::More tests => 3;
+diff --git a/test/s/umount.t b/test/s/umount.t
+index c77301a..d964b28 100644
+--- a/test/s/umount.t
++++ b/test/s/umount.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_point $_real $_pidfile);
++use lib './test/';
++use helper qw($_point $_real $_pidfile);
+ use strict;
+ use Test::More tests => 1;
+ use POSIX qw(WEXITSTATUS);
+diff --git a/test/statfs.t b/test/statfs.t
+index 52fa3ce..eaaa3f9 100644
+--- a/test/statfs.t
++++ b/test/statfs.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ use Config;
+ use Filesys::Statvfs;
+diff --git a/test/symlink.t b/test/symlink.t
+index 25e1934..ad99dae 100644
+--- a/test/symlink.t
++++ b/test/symlink.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_point $_real);
++use lib './test/';
++use helper qw($_point $_real);
+ use Test::More;
+ plan tests => 6;
+ chdir($_point);
+diff --git a/test/truncate.t b/test/truncate.t
+index 0e9ceab..1b9f693 100644
+--- a/test/truncate.t
++++ b/test/truncate.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 5;
+ chdir($_point);
+diff --git a/test/unlink.t b/test/unlink.t
+index 85c255f..fc52531 100644
+--- a/test/unlink.t
++++ b/test/unlink.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 4;
+ chdir($_point);
+diff --git a/test/utime.t b/test/utime.t
+index e6bc7b8..53f637c 100644
+--- a/test/utime.t
++++ b/test/utime.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 3;
+ my (@stat);
+diff --git a/test/write.t b/test/write.t
+index 406a7e3..e914045 100644
+--- a/test/write.t
++++ b/test/write.t
+@@ -1,5 +1,6 @@
+ #!/usr/bin/perl
+-use test::helper qw($_real $_point);
++use lib './test/';
++use helper qw($_real $_point);
+ use Test::More;
+ plan tests => 15;
+ my ($data);
+-- 
+2.28.0
+
diff --git a/dev-perl/Fuse/files/Fuse-0.16.1-tempdir-override.patch b/dev-perl/Fuse/files/Fuse-0.16.1-tempdir-override.patch
new file mode 100644
index 000000000000..e865d3b1a135
--- /dev/null
+++ b/dev-perl/Fuse/files/Fuse-0.16.1-tempdir-override.patch
@@ -0,0 +1,162 @@
+From bbb2a0de816f0cb506a0bdb34c9ca7ba94e53f9a Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Fri, 18 Sep 2020 04:53:23 +1200
+Subject: Enable overriding tempdir used for base of fuse mounts
+
+- Add 5 new external variables to control locations for mountpoints,
+  scratch directories, pid files and logs:
+  - FUSE_TEMPDIR (weak support) : Change the base directory for various
+    path defaults
+  - FUSE_MOUNTPOINT : Change where the test filesystem is mounted
+  - FUSE_TESTMOUNT : Change the path to the "fusetest-" directory used
+    in various tests
+  - FUSE_PIDFILE : Change the path to the PID file for the fuse daemon
+  - FUSE_LOGFILE : Change the path to the log file for the fuse daemon
+- Convert stringy $_opts into a proper array to avoid path escaping
+  headaches.
+- Use `opendir` to check existence/traversability of the mountpoint
+  instead of a cruddy stringy system($string) call, avoiding need for
+  stdout redirection and dangerous path handling, as well as removing
+  the need for POSIX module hacks to check the exit status of "ls"
+- Use array based invocation of the $_loop script to avoid problems with
+  path handling/escaping
+- Use list-mode system(@args) for `rm` call to avoid dangerous
+  nightmares in path handling/escaping.
+- Use native perl file IO for reading pid files instead of consuming the
+  output of a system("cat"), both avoiding a lot of silly shenanigans
+  with IPC and path handling/escaping
+
+Signed-off-by: Kent Fredric <kentnl@gentoo.org>
+---
+ examples/loopback.pl |  7 ++++++-
+ test/helper.pm       | 40 ++++++++++++++++++++++++++++++----------
+ test/s/mount.t       | 24 +++++++++++++++++-------
+ 3 files changed, 53 insertions(+), 18 deletions(-)
+
+diff --git a/examples/loopback.pl b/examples/loopback.pl
+index ef53e9d..c1ddfc2 100755
+--- a/examples/loopback.pl
++++ b/examples/loopback.pl
+@@ -65,7 +65,12 @@ GetOptions(
+     'logfile=s'         => \$logfile,
+ ) || die('Error parsing options');
+ 
+-sub fixup { return "/tmp/fusetest-" . $ENV{LOGNAME} . shift }
++sub fixup {
++  my $tempdir = $ENV{FUSE_TESTMOUNT};
++  $tempdir = "/tmp/fusetest-" . $ENV{LOGNAME}
++    unless defined $tempdir and length $tempdir;
++  return $tempdir . shift;
++}
+ 
+ sub x_getattr {
+     my ($file) = fixup(shift);
+diff --git a/test/helper.pm b/test/helper.pm
+index f210105..f24f2a4 100644
+--- a/test/helper.pm
++++ b/test/helper.pm
+@@ -4,15 +4,37 @@ package # avoid cpan indexing
+ use strict;
+ use Exporter;
+ use Config;
+-use POSIX qw(WEXITSTATUS);
+ our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+ @ISA = "Exporter";
+-@EXPORT_OK = qw($_loop $_opts $_point $_pidfile $_real);
+-my $tmp = -d '/private' ? '/private/tmp' : '/tmp';
+-our($_loop, $_point, $_pidfile, $_real, $_opts) = ('examples/loopback.pl',"$tmp/fusemnt-".$ENV{LOGNAME},$ENV{'PWD'} . "/test/s/mounted.pid","$tmp/fusetest-".$ENV{LOGNAME}, '');
+-$_opts = ' --pidfile ' . $_pidfile;
+-$_opts .= ' --logfile /tmp/fusemnt.log';
+-$_opts .= $Config{useithreads} ? ' --use-threads' : '';
++@EXPORT_OK = qw($_loop @_opts $_point $_pidfile $_real);
++
++our $_loop = 'examples/loopback.pl';
++my $tmp = $ENV{FUSE_TEMPDIR};
++$tmp = -d '/private' ? '/private/tmp' : '/tmp'
++  unless defined $tmp and length $tmp;
++
++our $_point = $ENV{FUSE_MOUNTPOINT};
++$_point = "$tmp/fusemnt-$ENV{LOGNAME}"
++	unless defined $_point and length $_point;
++
++our $_pidfile = $ENV{FUSE_PIDFILE};
++$_pidfile = "$ENV{PWD}/test/s/mounted.pid"
++	unless defined $_pidfile and length $_pidfile;
++
++our $_real = $ENV{FUSE_TESTMOUNT};
++$_real = "$tmp/fusetest-$ENV{LOGNAME}"
++	unless defined $_real and length $_real;
++
++our $_logfile = $ENV{FUSE_LOGFILE};
++$_logfile = "/tmp/fusemnt.log"
++	unless defined $_logfile and length $_logfile;
++
++our @_opts = (
++	'--pidfile' => $_pidfile,
++	'--logfile' => $_logfile,
++	( $Config{useithreads} ? '--use-threads' : () ),
++);
++
+ if($0 !~ qr|s/u?mount\.t$|) {
+ 	my ($reject) = 1;
+ 	if(open my $fh, '<', $_pidfile) {
+@@ -27,8 +49,6 @@ if($0 !~ qr|s/u?mount\.t$|) {
+ 			}
+ 		}
+ 	}
+-	system("ls $_point >/dev/null");
+-	$reject = 1 if (POSIX::WEXITSTATUS($?));
+-	die "not properly mounted\n" if $reject;
++	opendir my $dfh, $_point or die "$_point not properly mounted: $!";
+ }
+ 1;
+diff --git a/test/s/mount.t b/test/s/mount.t
+index 0f545b7..3bf65c6 100644
+--- a/test/s/mount.t
++++ b/test/s/mount.t
+@@ -1,6 +1,6 @@
+ #!/usr/bin/perl -w
+ use lib './test/';
+-use helper qw($_point $_loop $_opts $_real $_pidfile);
++use helper qw($_point $_loop @_opts $_real $_pidfile);
+ use strict;
+ use Errno qw(:POSIX);
+ use Test::More tests => 3;
+@@ -21,7 +21,7 @@ open REALSTDOUT, '>&STDOUT';
+ open REALSTDERR, '>&STDERR';
+ open STDOUT, '>', '/dev/null';
+ open STDERR, '>&', \*STDOUT;
+-system("perl -Iblib/lib -Iblib/arch $_loop $_opts $_point");
++system('perl','-Iblib/lib','-Iblib/arch',$_loop, @_opts, $_point);
+ open STDOUT, '>&', \*REALSTDOUT;
+ open STDERR, '>&', \*REALSTDERR;
+ 
+@@ -33,10 +33,20 @@ while ($count++ < 50 && !$success) {
+ diag "Mounted in ", $count/10, " secs";
+ 
+ ok($success,"mount succeeded");
+-system("rm -rf $_real");
+-unless($success) {
+-	kill('INT',`cat $_pidfile`);
+-	unlink($_pidfile);
+-} else {
++
++system("rm","-vrf",$_real);
++if ($success) {
+ 	mkdir($_real);
++} else {
++	my $pid;
++	if ( open my $fh, '<', "$_pidfile" ) {
++		local $/ = undef;
++		$pid = scalar <$fh>;
++	} else {
++		warn "Can't read pidfile $_pidfile, $!"
++	}
++	if ( $pid ) {
++		kill('INT',$pid);
++	}
++	unlink($_pidfile);
+ }
+-- 
+2.28.0
+