Changeset 2413 for trunk/gsdl/bin/script
- Timestamp:
- 2001-05-15T10:24:25+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/create_distributions.pl
r2334 r2413 47 47 48 48 # temporary working directory 49 my $tmpdir = '/tmp ';49 my $tmpdir = '/tmp/sjboddie'; 50 50 51 51 # docs directory - up-to-date copy of everything to go in the docs directory … … 64 64 use parsargv; 65 65 use util; 66 67 use Cwd; 66 68 67 69 sub print_usage { … … 264 266 &util::cp_r (&util::filename_cat ($tmpdir, "gsdl", "mappings"), $gsdldir); 265 267 268 # untar the perllib/cpan/Ping.tgz archive 269 my $cwd = cwd; 270 chdir(&util::filename_cat ($gsdldir, "perllib", "cpan")); 271 `tar xvzf Ping.tgz`; 272 chdir ($cwd); 273 266 274 # make sure that modelcol collection contains all the right 267 275 # empty directories … … 684 692 # edit VERSION file 685 693 my $version_file = &util::filename_cat ($tmpdir, "gsdl", "etc" , "VERSION"); 686 open (VERSION, $version_file) || die ;694 open (VERSION, $version_file) || die "failed to open $version_file\n"; 687 695 my $found = 0; my $line = ""; my $file = ""; 688 696 while (defined ($line = <VERSION>)) {
Note:
See TracChangeset
for help on using the changeset viewer.