12345678910111213141516171819202122232425262728293031323334353637 |
- 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__
|