2015-01-07 19:48:11 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
my $prog=q{PROG}; # replaced
|
|
|
|
my @opts=qw{OPTS}; # replaced
|
|
|
|
|
|
|
|
if (grep { $_ eq "-r" || $_ eq "--relocatable" } @ARGV) {
|
|
|
|
exec($prog,@ARGV) || die "failed to run $prog";
|
|
|
|
}
|
|
|
|
else {
|
2018-04-16 21:30:21 +00:00
|
|
|
my @args=grep { ! m/-no-pie/ } @ARGV;
|
|
|
|
exec($prog,@opts,@args) || die "failed to run $prog";
|
2015-01-07 19:48:11 +00:00
|
|
|
}
|