Fixed handling of "." and ".."

This commit is contained in:
Fernando Cacciola 2007-09-10 14:06:14 +00:00
parent fa0ac006d0
commit 6ef1fdb3e6
1 changed files with 3 additions and 2 deletions

View File

@ -167,12 +167,13 @@ sub install_packages() {
opendir packagename, "$tmp_package_name"; opendir packagename, "$tmp_package_name";
@fichiers = readdir packagename; @fichiers = readdir packagename;
closedir packagename; closedir packagename;
shift @fichiers; shift @fichiers; #shift @fichiers; shift @fichiers;
foreach $fichier (@fichiers){ foreach $fichier (@fichiers){
if ($fichier ne '.' && $fichier ne '..'){
system('cp', '-r', "$tmp_package_name/$fichier", "$RELEASEDIR/$VERSION"); system('cp', '-r', "$tmp_package_name/$fichier", "$RELEASEDIR/$VERSION");
} }
}
system('rm', '-rf', "$tmp_package_name"); system('rm', '-rf', "$tmp_package_name");
} }
closedir ALLPACKAGESDIR; closedir ALLPACKAGESDIR;
unlink 'temppack.tar', 'description.txt', 'long_description.txt', 'changes.txt'; unlink 'temppack.tar', 'description.txt', 'long_description.txt', 'changes.txt';