package/perl/perl-mkppport.patch

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