Subversion Repositories DevTools

#! perl
########################################################################
# Copyright (C) 2006 ERG Limited, 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'));
}