Changeset 3779

Timestamp:

2003-03-03T11:06:24+13:00 (21 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/create_distributions.pl (modified) (1 diff)

trunk/gsdl/bin/script/create_distributions.pl

@@ -314 +314 @@
     
     # don't want doc versions of manuals
-    my $manfile = &util::filename_cat ($install_dir, "docs", "User-es.dic");
-    &util::rm ($manfile) if -e $manfile;
-    $manfile = &util::filename_cat ($install_dir, "docs", "Install-es.doc");
-    &util::rm ($manfile) if -e $manfile;
-    $manfile = &util::filename_cat ($install_dir, "docs", "Developer-es.doc");
-    &util::rm ($manfile) if -e $manfile;
-    $manfile = &util::filename_cat ($install_dir, "docs", "Paper-es.doc");
-    &util::rm ($manfile) if -e $manfile;
-    
+    $rm_docs = "rm -r " . &util::filename_cat ($install_dir, "docs", "*.doc");
+    `$rm_docs`;
 }