Re: First release of mbtools

Scott Bronson <[email protected]> Wed, 17 May 2006 16:11:56 -0400
Newsgroups gmane.comp.lang.perl.modules.mail-box
Organization Rinspin
Message-ID <[email protected]>
On Wed, 2006-05-17 at 14:42 -0400, Scott Bronson wrote:
> You can download them from here http://u32.net/projects/ or browse/check
> out the source using svn co http://svn.u32.net/projects/mbtools

Oops!  A last-minute change broke mbtools from working with anything
beside mboxes.  Gah!

Here's the patch.  I'll put an updated package up soon.

     - Scott




--- lib/Mail/BoxCommands.pm     (revision 1963)
+++ lib/Mail/BoxCommands.pm     (local)
@@ -43,7 +43,6 @@
        trusted => 0,                   # slight performance hit but is
more careful
        log => 4,
        trace => 4,
-       type => 'mbox',                 # create mbox folders by default
        );


@@ -54,7 +53,7 @@
 # These functions allow a command to check which options were set
 sub optForce   { return $force; }              # should the command be
forced
 sub optRecurse         { return $recurse; }    # should the command
recurse
-sub defaultType { return $folderAttrs{type}; } # type of folder to
create
+sub defaultType { return $folderAttrs{type} || 'mbox'; } # type to
create


 =head1 METHODS