Ticket #20347: imapsync.diff

files/patch-imapsync.diff

@@ +1 @@
+--- imapsync    2009-07-02 20:00:27.000000000 -0500
++++ imapsync    2009-07-17 02:24:22.000000000 -0500
+@@ -563,6 +563,9 @@
+ 
+ get_options();
+ 
++# allow Mail::IMAPClient 3.0.xx by default
++$allow3xx = defined($allow3xx) ? $allow3xx : 1;
++
+ check_lib_version() or 
+   die "imapsync needs perl lib Mail::IMAPClient release 2.2.9, or 3.0.19 or superior \n";
+ 
+@@ -586,9 +589,6 @@
+ $host2 || missing_option("--host2") ;
+ $port2 ||= defined $ssl2 ? 993 : 143;
+ 
+-# allow Mail::IMAPClient 3.0.xx by default
+-$allow3xx = defined($allow3xx) ? $allow3xx : 1;
+-
+ sub connect_imap {
+        my($host, $port, $debugimap, $ssl) = @_;
+        my $imap = Mail::IMAPClient->new();

Portfile

@@ -4 +4 @@
 
 name                    imapsync
 version                 1.285
+revision                1
 categories              mail
 platforms               darwin
 maintainers             mww
@@ -26 +27 @@
                                 port:p5-io-socket-ssl \
                                 port:p5-datemanip
 
+patchfiles              patch-imapsync.diff
+
 configure {
         reinplace "s|^#!.*|#!${prefix}/bin/perl|g" ${worksrcpath}/imapsync
 }