I'm trying to use Archive::Tar, but it' keeps stopping with the error: "The filename, directory name, or volume label syntax is incorrect."

$TEMP_PATH contains a directory which I'm tring to tar up so that when unpacked a directory identical to the one in $TEMP_PATH is created (i.e. no absolute paths). $dc is the directory character on whatever platform I'm on.

As you can see, I was tyring two ways to use $tar->add_files() - one in a foreach loop, the other just by directly feeding the function the array - but neither work!

Please help!

my @temp_filelist;
my $temppath = $TEMP_PATH;
$temppath =~ s/\\/\\\\/g;
find(\&wanted, $TEMP_PATH);

# this is called for each file in $TEMP_PATH
sub wanted { 
    my $path = $File::Find::dir;
    $path =~ s|^$temppath||o;
    $path =~ s|[\\/]|$dc|g;
    $path =~ s|^[\\/]||;
    push @temp_filelist, "$path${dc}$_";
}

my $tar = Archive::Tar->new();
foreach (@temp_filelist) {
    #print "$_\n";
    $tar->add_files("$_");
}
#$tar->add_files(@temp_filelist);
$tar->write("$OUTPUT_FILE.gz",1);
@temp_filelist = $tar->list_files();
[download]