blob: a7136a9509d57830e011870806966d3316aca8a0 (
plain)
1
2
3
4
5
6
7
8
9
10
|
#!/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 {
exec($prog,@opts,@ARGV) || die "failed to run $prog";
}
|
