diff --git a/mail/cyrus-imapd/files/patch-perl::imap::Makefile.PL b/mail/cyrus-imapd/files/patch-perl::imap::Makefile.PL
new file mode 100644
index 000000000000..66140bf53219
--- /dev/null
+++ b/mail/cyrus-imapd/files/patch-perl::imap::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/imap/Makefile.PL
+diff -u perl/imap/Makefile.PL.orig perl/imap/Makefile.PL
+--- perl/imap/Makefile.PL.orig	Thu Oct 23 03:50:18 2003
++++ perl/imap/Makefile.PL	Sun Dec 12 04:20:10 2004
+@@ -70,3 +70,10 @@
+     'INC'	=> "-I../../lib $SASL_INC $OPENSSL_INC", 
+     'EXE_FILES' => [cyradm],
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd/files/patch-perl::sieve::managesieve::Makefile.PL b/mail/cyrus-imapd/files/patch-perl::sieve::managesieve::Makefile.PL
new file mode 100644
index 000000000000..dfe74a066f49
--- /dev/null
+++ b/mail/cyrus-imapd/files/patch-perl::sieve::managesieve::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/sieve/managesieve/Makefile.PL
+diff -u perl/sieve/managesieve/Makefile.PL.orig perl/sieve/managesieve/Makefile.PL
+--- perl/sieve/managesieve/Makefile.PL.orig	Thu Oct 23 03:50:27 2003
++++ perl/sieve/managesieve/Makefile.PL	Sun Dec 12 04:21:55 2004
+@@ -64,3 +64,10 @@
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I../lib/ -I../../../lib/ $SASL_INC",
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd2/files/patch-perl::imap::Makefile.PL b/mail/cyrus-imapd2/files/patch-perl::imap::Makefile.PL
new file mode 100644
index 000000000000..66140bf53219
--- /dev/null
+++ b/mail/cyrus-imapd2/files/patch-perl::imap::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/imap/Makefile.PL
+diff -u perl/imap/Makefile.PL.orig perl/imap/Makefile.PL
+--- perl/imap/Makefile.PL.orig	Thu Oct 23 03:50:18 2003
++++ perl/imap/Makefile.PL	Sun Dec 12 04:20:10 2004
+@@ -70,3 +70,10 @@
+     'INC'	=> "-I../../lib $SASL_INC $OPENSSL_INC", 
+     'EXE_FILES' => [cyradm],
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd2/files/patch-perl::sieve::managesieve::Makefile.PL b/mail/cyrus-imapd2/files/patch-perl::sieve::managesieve::Makefile.PL
new file mode 100644
index 000000000000..bde3d77b763e
--- /dev/null
+++ b/mail/cyrus-imapd2/files/patch-perl::sieve::managesieve::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/sieve/managesieve/Makefile.PL
+diff -u perl/sieve/managesieve/Makefile.PL.orig perl/sieve/managesieve/Makefile.PL
+--- perl/sieve/managesieve/Makefile.PL.orig	Thu Oct 23 03:50:27 2003
++++ perl/sieve/managesieve/Makefile.PL	Sun Dec 12 04:21:55 2004
+@@ -64,3 +64,10 @@
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I../lib/ -I../../../lib/ $SASL_INC $OPENSSL_INC",
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd22/files/patch-perl::imap::Makefile.PL b/mail/cyrus-imapd22/files/patch-perl::imap::Makefile.PL
new file mode 100644
index 000000000000..66140bf53219
--- /dev/null
+++ b/mail/cyrus-imapd22/files/patch-perl::imap::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/imap/Makefile.PL
+diff -u perl/imap/Makefile.PL.orig perl/imap/Makefile.PL
+--- perl/imap/Makefile.PL.orig	Thu Oct 23 03:50:18 2003
++++ perl/imap/Makefile.PL	Sun Dec 12 04:20:10 2004
+@@ -70,3 +70,10 @@
+     'INC'	=> "-I../../lib $SASL_INC $OPENSSL_INC", 
+     'EXE_FILES' => [cyradm],
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd22/files/patch-perl::sieve::managesieve::Makefile.PL b/mail/cyrus-imapd22/files/patch-perl::sieve::managesieve::Makefile.PL
new file mode 100644
index 000000000000..bde3d77b763e
--- /dev/null
+++ b/mail/cyrus-imapd22/files/patch-perl::sieve::managesieve::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/sieve/managesieve/Makefile.PL
+diff -u perl/sieve/managesieve/Makefile.PL.orig perl/sieve/managesieve/Makefile.PL
+--- perl/sieve/managesieve/Makefile.PL.orig	Thu Oct 23 03:50:27 2003
++++ perl/sieve/managesieve/Makefile.PL	Sun Dec 12 04:21:55 2004
+@@ -64,3 +64,10 @@
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I../lib/ -I../../../lib/ $SASL_INC $OPENSSL_INC",
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd23/files/patch-perl::imap::Makefile.PL b/mail/cyrus-imapd23/files/patch-perl::imap::Makefile.PL
new file mode 100644
index 000000000000..66140bf53219
--- /dev/null
+++ b/mail/cyrus-imapd23/files/patch-perl::imap::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/imap/Makefile.PL
+diff -u perl/imap/Makefile.PL.orig perl/imap/Makefile.PL
+--- perl/imap/Makefile.PL.orig	Thu Oct 23 03:50:18 2003
++++ perl/imap/Makefile.PL	Sun Dec 12 04:20:10 2004
+@@ -70,3 +70,10 @@
+     'INC'	=> "-I../../lib $SASL_INC $OPENSSL_INC", 
+     'EXE_FILES' => [cyradm],
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd23/files/patch-perl::sieve::managesieve::Makefile.PL b/mail/cyrus-imapd23/files/patch-perl::sieve::managesieve::Makefile.PL
new file mode 100644
index 000000000000..bde3d77b763e
--- /dev/null
+++ b/mail/cyrus-imapd23/files/patch-perl::sieve::managesieve::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/sieve/managesieve/Makefile.PL
+diff -u perl/sieve/managesieve/Makefile.PL.orig perl/sieve/managesieve/Makefile.PL
+--- perl/sieve/managesieve/Makefile.PL.orig	Thu Oct 23 03:50:27 2003
++++ perl/sieve/managesieve/Makefile.PL	Sun Dec 12 04:21:55 2004
+@@ -64,3 +64,10 @@
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I../lib/ -I../../../lib/ $SASL_INC $OPENSSL_INC",
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd24/files/patch-perl::imap::Makefile.PL b/mail/cyrus-imapd24/files/patch-perl::imap::Makefile.PL
new file mode 100644
index 000000000000..66140bf53219
--- /dev/null
+++ b/mail/cyrus-imapd24/files/patch-perl::imap::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/imap/Makefile.PL
+diff -u perl/imap/Makefile.PL.orig perl/imap/Makefile.PL
+--- perl/imap/Makefile.PL.orig	Thu Oct 23 03:50:18 2003
++++ perl/imap/Makefile.PL	Sun Dec 12 04:20:10 2004
+@@ -70,3 +70,10 @@
+     'INC'	=> "-I../../lib $SASL_INC $OPENSSL_INC", 
+     'EXE_FILES' => [cyradm],
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}
diff --git a/mail/cyrus-imapd24/files/patch-perl::sieve::managesieve::Makefile.PL b/mail/cyrus-imapd24/files/patch-perl::sieve::managesieve::Makefile.PL
new file mode 100644
index 000000000000..bde3d77b763e
--- /dev/null
+++ b/mail/cyrus-imapd24/files/patch-perl::sieve::managesieve::Makefile.PL
@@ -0,0 +1,15 @@
+Index: perl/sieve/managesieve/Makefile.PL
+diff -u perl/sieve/managesieve/Makefile.PL.orig perl/sieve/managesieve/Makefile.PL
+--- perl/sieve/managesieve/Makefile.PL.orig	Thu Oct 23 03:50:27 2003
++++ perl/sieve/managesieve/Makefile.PL	Sun Dec 12 04:21:55 2004
+@@ -64,3 +64,10 @@
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I../lib/ -I../../../lib/ $SASL_INC $OPENSSL_INC",
+ );
++
++package MY;
++sub install {
++    my $inherited = shift->SUPER::install(@_);
++    $inherited =~ s/(install :: all pure_install) doc_install/$1/;
++    $inherited;
++}