Changeset 2429

Timestamp:

2001-05-16T17:38:29+12:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/create_distributions.pl (modified) (2 diffs)

trunk/gsdl/bin/script/create_distributions.pl

@@ -266 +266 @@
     &util::cp_r (&util::filename_cat ($tmpdir, "gsdl", "mappings"), $gsdldir);
 
-    # untar the perllib/cpan/Ping.tgz archive
-    my $cwd = cwd;
-    chdir(&util::filename_cat ($gsdldir, "perllib", "cpan"));
+    # untar Ping.tgz
+    my $wd = cwd;
+    chdir (&util::filename_cat($gsdldir, "perllib", "cpan"));
     `tar xvzf Ping.tgz`;
-    chdir ($cwd);
+    unlink ("Ping.tgz");
+    chdir ($wd);
 
     # make sure that modelcol collection contains all the right 
@@ -341 +342 @@
 
     if (!$cd_rom) {
-    &util::rm_r (&util::filename_cat ($winbindir, "net16"));
-    &util::rm_r (&util::filename_cat ($winbindir, "net32"));
-    &util::rm_r (&util::filename_cat ($winbindir, "Win32s"));
-    &util::rm_r (&util::filename_cat ($winbindir, "netscape"));
+    &util::rm_r (&util::filename_cat ($winbindir, "windows", "net16"));
+    &util::rm_r (&util::filename_cat ($winbindir, "windows", "net32"));
+    &util::rm_r (&util::filename_cat ($winbindir, "windows", "Win32s"));
+    &util::rm_r (&util::filename_cat ($winbindir, "windows", "netscape"));
     }