--- doc/loncapafiles/removenolongerused.piml 2013/08/09 06:24:21 1.2 +++ doc/loncapafiles/removenolongerused.piml 2013/08/10 01:27:36 1.3 @@ -17,7 +17,7 @@ my %paths = ( ); my %files = ( - 'londaemons' => ['lonManage','lchtmldir','lonhttpd'], + 'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcadduser'], 'apache' => ['londropadd.pm','lonconstruct.pm', 'lonremote.pm','admbookmarks.pm'], 'londocroot' => ['adm/rat/extpickcode.html', @@ -84,7 +84,7 @@ if (@dirstodelete > 0) { print "$dir -- delete? Enter: Y or N:\n"; my $choice=<>; chomp($choice); - $choice =~ s/\s+//g; + $choice =~ s/\s+//g; if ($choice eq 'Y') { File::Path::remove_tree($dir); }