Subversion Repositories DevTools

#! perl

########################################################################

# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.

#

# Module name   : jats.sh

# Module type   : Makefile system

# Compiler(s)   : n/a

# Environment(s): jats

#

# Description:

#

# Usage:

#

# Version   Who      Date        Description

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

use JatsError;

use FileUtils;

my @tests = qw

(

    'c:/fred/bill/harry.1.1.1.ext'

    'c:/fred.yes/bill/harry.1.1.1.ext'

    '/fred.aaa'

    '/fred'

    'fred.aa'

    'fred'

);

foreach my $entry ( @tests )

{

    Message( "StripDirExt: $entry : " . StripDirExt($entry));

}

Message ("With Extension");

foreach my $entry ( @tests )

{

    Message( "StripDirExt2: $entry : " . StripDirExt($entry, '.NEW'));

}