test1.pl

#!/usr/bin/perl
use English;
use POSIX qw( :stdlib_h strftime getcwd );
use Getopt::Std;
use FileHandle;
use strict vars;
use File::Basename;

eval "use CVSClient";

use Syslog;  # homegrown version
use SSSourceOrg qw( getLibExts getLibDirs );
use SSMail qw( send );

##</code><code>##

package SSSourceOrg;

use strict;
use POSIX qw( :stdlib_h );
use Cwd;
use File::Basename;
use English;

use UserIO qw( getStrUntilMatch );

require Exporter;

use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION = 1.01;

@ISA = qw( Exporter );
@EXPORT = ();
%EXPORT_TAGS = ();

@EXPORT_OK = qw( getValidModule
                 getSSROPath getSSEditPath getPaths
                 getRefRoot getEditRoot getQARoot getCommittedLibRoot
                 getLinkedDir
                 getLibExts getLibDirs getLibRegex
                 isCopybook isCobolProgram buildcobcpy
               );

my @libExts = qw( LIB UNQ PRC HVD WS IO );
#my @libDirs = qw( lio lib lci lga lhv lxf );
my $libRegex = "(\\." . join( "|\\.", @libExts ) . ")";

sub getLibExts(){
  return( @libExts );
}
1;