Changeset 3779

Show
Ignore:
Timestamp:
03.03.2003 11:06:24 (17 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/bin/script/create_distributions.pl

    r3699 r3779  
    314314     
    315315    # don't want doc versions of manuals 
    316     my $manfile = &util::filename_cat ($install_dir, "docs", "User-es.dic"); 
    317     &util::rm ($manfile) if -e $manfile; 
    318     $manfile = &util::filename_cat ($install_dir, "docs", "Install-es.doc"); 
    319     &util::rm ($manfile) if -e $manfile; 
    320     $manfile = &util::filename_cat ($install_dir, "docs", "Developer-es.doc"); 
    321     &util::rm ($manfile) if -e $manfile; 
    322     $manfile = &util::filename_cat ($install_dir, "docs", "Paper-es.doc"); 
    323     &util::rm ($manfile) if -e $manfile; 
    324      
     316    $rm_docs = "rm -r " . &util::filename_cat ($install_dir, "docs", "*.doc"); 
     317    `$rm_docs`; 
    325318} 
    326319