Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f62de2c443
Fetching contributors…

Cannot retrieve contributors at this time

executable file 46 lines (35 sloc) 1.201 kb
#! /usr/bin/perl
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
& eval 'exec perl -w -S $0 $argv:q'
if 0;
# ******************************************************************
# Author: Chad Elliott
# Date: 6/17/2002
# $Id$
# ******************************************************************
# ******************************************************************
# Pragma Section
# ******************************************************************
require 5.006;
use strict;
use FindBin;
use File::Spec;
use File::Basename;
my $basePath = $FindBin::Bin;
if ($^O eq 'VMS') {
$basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
$basePath = VMS::Filespec::unixify($basePath);
}
unshift(@INC, $basePath . '/modules');
require Driver;
# ************************************************************
# Subroutine Section
# ************************************************************
sub getBasePath {
return $basePath;
}
# ************************************************************
# Main Section
# ************************************************************
my $driver = new Driver($basePath, basename($0));
exit($driver->run(@ARGV));
Jump to Line
Something went wrong with that request. Please try again.