Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

# $URL: https://svn.photomask.com/DR_FE/mebes-jobdeck/perl/branches/AMTC-Jobdeck-Mebes-1.3/bin/inc.pl $
# $Id: inc.pl 354 2016-11-10 10:32:16Z heydero $

# Set the @INC paths.

use FindBin;

use lib (
	"$FindBin::RealBin/../lib",
	"/sftw/amtc-common-perl/amtc-common-perl-5.20.2.1.004/lib",
	"/sftw/perl/pmp-r5.20.2.5.0/lib",
); 

1;

__END__

Other scripts of this package are encouraged to load like this:

BEGIN
{
	use FindBin;
	
	my $dir = $ENV{UNITTEST} ? './bin' : $FindBin::RealBin;
		
	my $file = "$dir/inc.pl";
	
	do $file || die "Couldn't run $file : $@ : $!";
}