perl-mkppport.patch 970 B

12345678910111213141516171819202122232425262728293031323334353637
  1. Add RUN
  2. Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
  3. Index: b/mkppport
  4. ===================================================================
  5. --- a/mkppport
  6. +++ b/mkppport
  7. @@ -1,6 +1,7 @@
  8. use strict;
  9. use warnings;
  10. +use Config;
  11. use Getopt::Long;
  12. use File::Spec;
  13. use File::Compare qw( compare );
  14. @@ -136,14 +137,18 @@
  15. #----------------------------------------------
  16. sub run
  17. {
  18. + my @run = $Config{run};
  19. + @run = () if not defined $run[0] or $run[0] eq '';
  20. my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 2, 'lib'), @_);
  21. my $run = $perl =~ m/\s/ ? qq("$perl") : $perl;
  22. for (@args) {
  23. $_ = qq("$_") if $^O eq 'VMS' && /^[^"]/;
  24. $run .= " $_";
  25. }
  26. - print "running $run\n";
  27. - system $run and die "$run failed: $?\n";
  28. +# print "running $run\n";
  29. +# system $run and die "$run failed: $?\n";
  30. + print "running ", join(' ', @run, $run), "\n";
  31. + system join(' ', @run, $run) and die "@run $run failed: $?\n";
  32. }
  33. __END__