Changeset 23249

Show
Ignore:
Timestamp:
29.10.2010 15:00:58 (9 years ago)
Author:
ak19
Message:

A useful debug version of the rm method which got added in when Dr Bainbridge fixed the mimetype file deleting issue (commit 23248).

Location:
main/trunk/greenstone2/perllib
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/List.pm

    r23154 r23249  
    270270        # Unicode/Collate directory. 
    271271    require Unicode::Collate; 
     272    #print STDERR "*** What's in INC: ".join(", ", @INC) ."\n"; 
    272273    $self->{'unicode_collator'} = Unicode::Collate->new(); 
     274    #print STDERR "Table name: ".$self->{'unicode_collator'}->{'table'}."\n"; 
    273275    } 
    274276 
  • main/trunk/greenstone2/perllib/util.pm

    r22886 r23249  
    5959} 
    6060 
     61# removes files (but not directories) - can rename this to the default 
     62# "rm" subroutine  when debugging the deletion of individual files. 
     63sub rm_debug { 
     64    my (@files) = @_; 
     65    my @filefiles = (); 
     66 
     67    # make sure the files we want to delete exist  
     68    # and are regular files 
     69    foreach my $file (@files) { 
     70        if (!-e $file) { 
     71            print STDERR "util::rm $file does not exist\n"; 
     72        } elsif ((!-f $file) && (!-l $file)) { 
     73            print STDERR "util::rm $file is not a regular (or symbolic) file\n"; 
     74        } else { # debug message 
     75            unlink($file) or warn "Could not delete file $file: $!\n"; 
     76        } 
     77    } 
     78} 
    6179 
    6280