4bb3d3bd1c
Signed-off-by: Francois Perrad <francois.perrad@gadz.org> Signed-off-by: Peter Korsgaard <jacmet@sunsite.dk>
38 lines
970 B
Diff
38 lines
970 B
Diff
Add RUN
|
|
|
|
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
|
|
|
|
Index: b/mkppport
|
|
===================================================================
|
|
--- a/mkppport
|
|
+++ b/mkppport
|
|
@@ -1,6 +1,7 @@
|
|
use strict;
|
|
use warnings;
|
|
|
|
+use Config;
|
|
use Getopt::Long;
|
|
use File::Spec;
|
|
use File::Compare qw( compare );
|
|
@@ -136,14 +137,18 @@
|
|
#----------------------------------------------
|
|
sub run
|
|
{
|
|
+ my @run = $Config{run};
|
|
+ @run = () if not defined $run[0] or $run[0] eq '';
|
|
my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 2, 'lib'), @_);
|
|
my $run = $perl =~ m/\s/ ? qq("$perl") : $perl;
|
|
for (@args) {
|
|
$_ = qq("$_") if $^O eq 'VMS' && /^[^"]/;
|
|
$run .= " $_";
|
|
}
|
|
- print "running $run\n";
|
|
- system $run and die "$run failed: $?\n";
|
|
+# print "running $run\n";
|
|
+# system $run and die "$run failed: $?\n";
|
|
+ print "running ", join(' ', @run, $run), "\n";
|
|
+ system join(' ', @run, $run) and die "@run $run failed: $?\n";
|
|
}
|
|
|
|
__END__
|