/usr/lib/ace/MPC/depgen.pl is in mpc-ace 6.0.3+dfsg-0.2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | #!/usr/bin/perl
#! /usr/bin/perl
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
& eval 'exec perl -w -S $0 $argv:q'
if 0;
# ************************************************************
# Description : Generate dependencies for Make and NMake.
# Author : Chad Elliott
# Create Date : 5/06/2002
# $Id: depgen.pl 1469 2008-08-20 08:38:13Z johnnyw $
# ************************************************************
# ************************************************************
# Pragma Section
# ************************************************************
use strict;
use FindBin;
use File::Spec;
use File::Basename;
my $basePath = $FindBin::Bin;
if ($^O eq 'VMS') {
$basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
$basePath = VMS::Filespec::unixify($basePath);
}
unshift(@INC, $basePath . '/modules/Depgen', $basePath . '/modules');
require Driver;
# ************************************************************
# Main Section
# ************************************************************
my $driver = new Driver();
exit($driver->run(\@ARGV));
|