Re: [Module::Build] *.zip distros?

[Chris D. <ch...@cl...>]

On Jun 5, 2006, at 5:38 PM, Gene Boggs wrote:

> Maybe this is a question with an answer already but I don't see  
> it...  Is there a facility to create *.zip files instead of  
> tar.gz's of your distribution?  I thought at first that the ppmdist  
> might be the answer but that creates a tar.gz also.  I'd rather not  
> do system("zip -r $distname.zip $distname"); if I can help it...   
> I'm pretty sure I am missing something here.  Hints?  :-)
>
> Thanks,
>
> Gene Boggs

This can be accomplished with a subclass.  The following (untested)  
code should give you a head start:

my $class = Module::Build->subclass(<<'END_OF_SUBCLASS');
   sub make_tarball {
     my ($self, $dir, $file) = @_;
     $file ||= $dir;
     $self->log_info("Creating $file.zip\n");
     $self->do_system('zip', '-r', "$file.zip", $dir);
   }
END_OF_SUBCLASS
$class->new(
    # Usual M::B declarations go here
)->create_build_script;

Chris
-- 
Chris Dolan, Software Developer, Clotho Advanced Media Inc.
608-294-7900, fax 294-7025, 1435 E Main St, Madison WI 53703
vCard: http://www.chrisdolan.net/ChrisDolan.vcf

Clotho Advanced Media, Inc. - Creators of MediaLandscape Software  
(http://www.media-landscape.com/) and partners in the revolutionary  
Croquet project (http://www.opencroquet.org/)