Como aplicar um PATCH num modulo do PERL?

[Fernando Shayani]

Estou instalando o Amavis no meu Debian Woody.

Preciso aplicar um Patch num modulo do PERL que é necessario. Peguei o 
"patch" no site do Amavis, mas nao sei aplicar um patch. Como se faz isso?

O patch que eu peguei é somente um arquivo com esse conteudo desde 
endereco: http://www.amavis.org/contrib/archive-tar

--- Tar.pm.orig Fri Aug 10 18:30:32 2001
+++ Tar.pm      Fri Aug 10 18:30:16 2001
@@ -25,20 +25,21 @@
     unless $symlinks || !$^W;

 # Check if Compress::Zlib is available
-my $compression = eval {
-    local $SIG{__DIE__};
-    require Compress::Zlib;
-    sub Compress::Zlib::gzFile::gzseek {
-       my $tmp;
-
-       $_[0]->gzread ($tmp, 4096), $_[1] -= 4096
-           while ($_[1] > 4096);
-
-       $_[0]->gzread ($tmp, $_[1])
-         if $_[1];
-    }
-    1;
-};
+#my $compression = eval {
+#    local $SIG{__DIE__};
+#    require Compress::Zlib;
+#    sub Compress::Zlib::gzFile::gzseek {
+#      my $tmp;
+#
+#      $_[0]->gzread ($tmp, 4096), $_[1] -= 4096
+#          while ($_[1] > 4096);
+#
+#      $_[0]->gzread ($tmp, $_[1])
+#        if $_[1];
+#    }
+#    1;
+#};
+my $compression = 0;
 carp "Compression not available"
     unless $compression || !$^W;


Obrigado
Fernando