From 74b9fa00efa16ec74f1d3df6137b9961fd60d3fc Mon Sep 17 00:00:00 2001 From: "Arnout Vandecappelle (Essensium/Mind)" Date: Wed, 28 Nov 2012 06:09:17 +0000 Subject: perl: remove redundant patches Now we are using perlcross, the patches to make perl work with qemu are redundant, so remove them. Signed-off-by: Arnout Vandecappelle (Essensium/Mind) Signed-off-by: Peter Korsgaard --- package/perl/perl-mkppport.patch | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 package/perl/perl-mkppport.patch (limited to 'package/perl/perl-mkppport.patch') diff --git a/package/perl/perl-mkppport.patch b/package/perl/perl-mkppport.patch deleted file mode 100644 index 97f27a202..000000000 --- a/package/perl/perl-mkppport.patch +++ /dev/null @@ -1,37 +0,0 @@ -Add RUN - -Signed-off-by: Francois Perrad - -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__ -- cgit v1.2.3