note
Tux
<p>Combine with [mod://File::Find]:</p>
<code>
use strict;
use warnings;
use autodie;
use Archive::Tar;
use File::Find;
my @fl;
find (sub { -d $_ or push @fl, $File::Find::name }, "Bundle::Finaltest");
Archive::Tar->create_archive ("Bundle-FinalTest.tar.gz", COMPRESS_GZIP, @fl);
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-200365">
<br />
Enjoy, Have FUN! H.Merijn
</div></div>
929483
929546