13 # Description:

    13 # Description:

    14 # Front-end to routines checking that source matches filename policy constraints

    14 # Front-end to routines checking that source matches filename policy constraints

    15 # 

    15 # 

    16 #

    16 #

    17 

    17 

    19 use FindBin;

    18 use FindBin;

    20 use Cwd;

    19 use Cwd;

    21 use Getopt::Long qw(:config posix_default);		#permits "+" in arguments, rather than as an option identifier

    20 use Getopt::Long qw(:config posix_default);		#permits "+" in arguments, rather than as an option identifier

    22 use lib $FindBin::Bin;

    21 use lib $FindBin::Bin;

    23 use CheckSource;

    22 use CheckSource;