--- doc/loncapafiles/removenolongerused.piml 2013/09/22 15:52:03 1.7 +++ doc/loncapafiles/removenolongerused.piml 2013/10/28 19:36:08 1.8 @@ -36,7 +36,7 @@ my %dirs = ( ); my %multis = ( - rcgifs' => \@rcgifs, + 'rcgifs' => \@rcgifs, ); my @filestodelete = (); my @dirstodelete = (); @@ -117,7 +117,7 @@ if (@multistodelete > 0) { $choice =~ s/\s+//g; if ($choice eq 'Y') { foreach my $item (@multistodelete) { - next if ((($item =~/\*/) || ($item eq '') || ($item eq '/')); + next if (($item =~/\*/) || ($item eq '') || ($item eq '/')); unlink($item); } }