fixed bug [ 820144 ] Theme problems under Win32

This commit is contained in:
JT Smith 2003-11-16 21:15:39 +00:00
parent ad774fa69a
commit 4d37075bb3
2 changed files with 10 additions and 2 deletions

View file

@ -201,7 +201,14 @@ sub tar {
chdir $self->getPath;
my $temp = WebGUI::Node->new($node1,$node2);
$temp->create;
Archive::Tar->create_archive($temp->getPath.$session{os}{slash}.$filename,1,$_[0]->getFiles);
if ($Archive::Tar::VERSION eq '0.072') {
my $tar = Archive::Tar->new();
$tar->add_files($_[0]->getFiles);
$tar->write($temp->getPath.$session{os}{slash}.$filename,1);
} else {
Archive::Tar->create_archive($temp->getPath.$session{os}{slash}.$filename,1,$_[0]->getFiles);
}
}
#-------------------------------------------------------------------