[PATCH 5/7] script/mwrap-perl: more portable Mwrap.so detection

[Eric Wong <e@80x24.org>]

@DynaLoader::dl_shared_objects is a documented interface in
DynaLoader(3pm), so we can use that instead of relying on
/proc/$$/maps on Linux.
---
 script/mwrap-perl | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/script/mwrap-perl b/script/mwrap-perl
index 5e5eec4..8d372eb 100644
--- a/script/mwrap-perl
+++ b/script/mwrap-perl
@@ -3,22 +3,8 @@
 # License: GPL-2.0+ <https://www.gnu.org/licenses/gpl-2.0.txt>
 use strict;
 use Devel::Mwrap;
-my $so;
-if ($^O eq 'linux') {
-	my $maps = do {
-		open my $fh, '<', "/proc/$$/maps" or
-				die "/proc/$$/maps not accessible: $!\n";
-		local $/;
-		<$fh>;
-	};
-	if ($maps =~ m![ \t](/[^\n]+?/Mwrap\.so)$!sm) {
-		$so = $1;
-	} else {
-		die "Mwrap.so not found in: $so\n";
-	}
-} else {
-	die "unsupported OS ($^O ne 'linux')";
-}
+my ($so) = grep(m!/Mwrap\.so\z!, @DynaLoader::dl_shared_objects);
+defined($so) or die 'Mwrap.so not loaded';
 my $cur = $ENV{LD_PRELOAD};
 if (defined $cur) {
 	my @cur = split(/[: \t]+/, $cur);