# DESCRIPTION: Perl ExtUtils: Common routines required by package tests
#
# Copyright 2003-2010 by Wilson Snyder. This program is free software; you
# can redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License Version 3 or the Perl Artistic License
# Version 2.0.
######################################################################
use vars qw($PERL $GCC);
$PERL = "$^X -Iblib/arch -Iblib/lib";
mkdir 'test_dir',0777;
if (!$ENV{HARNESS_ACTIVE}) {
use lib "blib/lib";
use lib "blib/arch";
use lib "lib";
}
sub run_system {
# Run a system command, check errors
my $command = shift;
print "\t$command\n";
system "$command";
my $status = $?;
($status == 0) or die "%Error: Command Failed $command, $status, stopped";
}
1;