The file that records the versions of the packages is now sorted.

This commit is contained in:
Geert-Jan Giezeman 1998-07-10 08:19:31 +00:00
parent 17536b7a45
commit 28d89bd93f
1 changed files with 4 additions and 2 deletions

View File

@ -14,6 +14,7 @@ use File::Find;
$::CURRENT_DIR=cwd(); $::CURRENT_DIR=cwd();
$::TEMPFILE="TEMPFILE.$$"; $::TEMPFILE="TEMPFILE.$$";
@::package_versions = ();
$::TESTING = 0; $::TESTING = 0;
@ -262,7 +263,7 @@ sub install_packages()
while (<CUR_VERSION>) { while (<CUR_VERSION>) {
next if /^\s*$/; next if /^\s*$/;
chomp; chomp;
print VERSIONS "$package_name : $_\n"; push @::package_versions, "$package_name : $_\n";
last; last;
} }
close CUR_VERSION; close CUR_VERSION;
@ -430,7 +431,6 @@ if ($::CURRENT_DIR ne '/private/CGAL') {
} }
check_call; check_call;
mkdir "$::VERSION",0775 or die; mkdir "$::VERSION",0775 or die;
open VERSIONS, ">versions_$::VERSION";
chdir $::VERSION or die; chdir $::VERSION or die;
$::CURRENT_DIR=cwd(); $::CURRENT_DIR=cwd();
lock; lock;
@ -438,6 +438,8 @@ lock;
install_packages(); install_packages();
install_misc; install_misc;
unlock; unlock;
open VERSIONS, ">versions_$::VERSION";
print VERSIONS sort @::package_versions;
close VERSIONS; close VERSIONS;
CreateExampleTestDirs; CreateExampleTestDirs;
make_testscripts; make_testscripts;