Subversion Repositories DevTools

#                   This function has a bit of history

#                   I've tried the Perl rmtree(), but there were situations

#                   where the OS(WIN32) says the directory exists after its been

#                   deleted. Also the Jats-Win32 version of chmod would issue

#                   messages if it couldn't find the dir/file.

#

#                   The solution is to use JATS' own JatsFileUtil utility

#                   This appears to do the right thing

#

        #  Need to know if its a file or a directory

        #

        my $mode = ( -d $path ) ? 'T' : 'r';

        #

        #   Use JATS's own utility to do the hardwork

        #   Used as it address a number of issues

        #

        #   Merge in verbosity

        #

        system ("$ENV{GBE_BIN}/JatsFileUtil", $mode . $::ScmVerbose, '', $path );

        #

        #   Shouldn't happen but ...

        #   If the path still exists try another (one this has known problems)

        #

        if ( -e $path )

        {

        }