File cyrus-imapd-3.4.0-remove-rpath.patch of Package cyrus-imapd

From: Matthias Fehring <buschmann23@opensuse.org>
Date: 2021-04-20 17:45:00 +0200
Subject: remove rpath from perl module Cyrus::SIEVE::managesieve
Upstream: no

Remove the RPATH from managesieve.so from perl module Cyrus::SIEVE::managesieve

---
 Makefile.PL.in |   13 +++++++++++++
 1 file changed, 13 insertions(+)

--- a/perl/sieve/managesieve/Makefile.PL.in	2021-04-20 17:38:33.550066006 +0200
+++ b/perl/sieve/managesieve/Makefile.PL.in	2021-04-20 17:38:58.581397046 +0200
@@ -81,6 +81,19 @@
     'MAKEFILE_OLD' => 'Makefile',
 );

+rename "Makefile", "Makefile.orig"
+    or die "Cannot rename: $!";
+open IN, "<Makefile.orig"
+    or die "Cannot open: $!";
+open OUT, ">Makefile"
+    or die "Cannot create: $!";
+while (<IN>)
+{
+    print OUT $_ unless /^LD_RUN_PATH /;
+}
+close IN;
+close OUT;
+
 sub MY::postamble {
     return <<'EOT';