% cd Cactus

% cd simfactory

% ./sim setup

Uncaught exception from user code:

File "udb.pm" not found.

This installation of SimFactory has not been configured.

 at ./sim line 27

% locate udb.pm

% 

#! /usr/bin/perl -w

use diagnostics;

use warnings;

use strict;

use Cwd;

#use Digest::MD5;

use File::Basename;

use File::Compare;

use File::Copy qw(cp), qw(mv);

use File::Path qw(mkpath);

use Getopt::Long;

#use Time::HiRes qw(gettimeofday);

use IPC::Open3;

use Symbol qw(gensym);

use IO::File;

my $exedir = $0;

if ($exedir =~ m{/}) {

    $exedir =~ s{/[^/]*$}{}; # Remove file name and trailing slash

    unshift @INC, $exedir;

}

if (! -e "$exedir/udb.pm") {

    die "File \"udb.pm\" not found.\n" .

        "This installation of SimFactory has not been configured.\n";

}