modified loadtest() to produce better error message when it fails to load

sub loadtest {

    my ($file)=@_;

    my $dir;

    $dir = $ENV{'srcdir'};

    if(!$dir) {

        $dir=".";

    }

    undef @xml;

    open(XML, "<$dir/$file") ||

        return 1; # failure!

    if(open(XML, "<$file")) {

        binmode XML; # for crapage systems, use binary

        while(<XML>) {

            push @xml, $_;

        }

        close(XML);

    }

    else {

        # failure

        print STDERR "file $file wouldn't open!\n";

        return 1;

    }

    return 0;

}