Subversion Repositories DevTools

Rev

Rev 4309 | Rev 4421 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4309 Rev 4344
Line 885... Line 885...
885 
#
 885 
#
886 
#                   The solution is to use JATS' own JatsFileUtil utility
 886 
#                   The solution is to use JATS' own JatsFileUtil utility
887 
#                   This appears to do the right thing
 887 
#                   This appears to do the right thing
888 
#
 888 
#
889 
# Inputs          : $path                   - Path to directory
 889 
# Inputs          : $path                   - Path to directory
- 
 
 890 
#                                             May be empty, in which case nothing is done
890 
#
 891 
#
891 
# Returns         : 1                       - Still there
 892 
# Returns         : 1                       - Still there
892 
#
 893 
#
893 
sub RmDirTree
 894 
sub RmDirTree
894 
{
 895 
{
895 
    my ($path) = @_;
 896 
    my ($path) = @_;
- 
 
 897 
    return 0 unless $path;
896 
    if ( -e $path )
 898 
    if ( -e $path )
897 
    {
 899 
    {
898 
        #  Need to know if its a file or a directory
 900 
        #  Need to know if its a file or a directory
899 
        #
 901 
        #
900 
        my $mode = ( -d $path ) ? 'T' : 'r';
 902 
        my $mode = ( -d $path ) ? 'T' : 'r';