=head1 NAME

CFX5::Init - Dynamic initialisation for scripts using CFX-5 Perl libraries

=head1 SYNOPSIS

  # right at the top of the script
  use CFX5::Init;
  CFX5::Init::init();

Miscellaneous runtime initialisation which, under normal
circumstances, I would put in BEGIN blocks. However, when using the
L<perlcc> compiler, these are parsed at I<compile> time, and so we
can't do it then.

=cut '

package CFX5::Init;

use vars qw($CVSVersion);
$CVSVersion='$Id$ ';

#use CFX5::Output;
use CFX5::ExitRoutines;
#use CFX5::CurrentConfig;

sub init {
  #CFX5::Output::init();
  #CFX5::CurrentConfig::check_ties();
  $^W=1;			# switch on warnings
}
