The third argument to create_archive is defined as @filelist, with the explanation:

The remaining arguments list the files to be included in the tar file. These files must all exist. Any files which don't exist or can't be read are silently ignored.

Note that no mention is made of directories, just files. create_archive does not recurse through directories; you must specify each file to be archived.

use strict; use warnings; use autodie;
use Archive::Tar;

my @filelist = ();
opendir(my $dir, '/path/to/my/dir/');
while(readdir $dir) {
   chomp;
   if (!~ /(^\.\.|\.)$/){
       push @filelist, $_;
   }
}
my $pack = Archive::Tar->new;
$pack->create_archive('Bundle-FinalTest.tgz', COMPRESS_GZIP, @filelist
+);
closedir $dir;
[download]

UPDATE: A couple of changes, but Not properly working still...

Alternatively, you can use the old cheap way, that is guaranteed to act as you expect:

Combine with File::Find:

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);
[download]


Enjoy, Have FUN! H.Merijn

thanks H.Merijin i have used your code