11 lines
288 B
Perl
11 lines
288 B
Perl
#!/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 {
|
|
my @args=grep { ! m/-no-pie/ } @ARGV;
|
|
exec($prog,@opts,@args) || die "failed to run $prog";
|
|
}
|