lang/perl/patches/020-storables-stacksize.patch

   1 From 682a4acb98783a7f9b5c286b308f12863599fec3 Mon Sep 17 00:00:00 2001
   2 From: Tony Cook <tony@develop-help.com>
   3 Date: Mon, 30 Jul 2018 21:00:52 +1000
   4 Subject: (perl #133411) don't try to load Storable with -Dusecrosscompile
   5
   6 ---
   7  dist/Storable/Makefile.PL |  9 ++++++++-
   8  dist/Storable/stacksize   | 10 +++++++---
   9  2 files changed, 15 insertions(+), 4 deletions(-)
  10
  11 --- a/dist/Storable/Makefile.PL
  12 +++ b/dist/Storable/Makefile.PL
  13 @@ -90,12 +90,19 @@ sub depend {
  14          # blib.pm needs arch/lib
  15          $extra_deps = ' Storable.pm';
  16      }
  17 +    my $whichperl;
  18 +    if ($Config::Config{usecrosscompile}) {
  19 +        $whichperl = '$(PERLRUN)';
  20 +    }
  21 +    else {
  22 +        $whichperl = '$(FULLPERLRUNINST)';
  23 +    }
  24      my $linktype = uc($_[0]->{LINKTYPE});
  25      my $limit_pm = File::Spec->catfile('lib', 'Storable', 'Limit.pm');
  26      "
  27  $limit_pm : stacksize \$(INST_$linktype)$extra_deps
  28         \$(MKPATH) \$(INST_LIB)
  29 -       \$(FULLPERLRUNINST) stacksize $options
  30 +       $whichperl stacksize $options
  31
  32  release : dist
  33         git tag \$(VERSION)
  34 --- a/dist/Storable/stacksize
  35 +++ b/dist/Storable/stacksize
  36 @@ -7,6 +7,9 @@ use Cwd;
  37  use File::Spec;
  38  use strict;
  39
  40 +-d "lib" or mkdir "lib";
  41 +-d "lib/Storable" or mkdir "lib/Storable";
  42 +
  43  my $fn = "lib/Storable/Limit.pm";
  44  my $ptrsize = $Config{ptrsize};
  45  my ($bad1, $bad2) = (65001, 25000);
  46 @@ -29,6 +32,10 @@ sub is_miniperl {
  47  }
  48
  49  if (is_miniperl()) {
  50 +    if ($Config{usecrosscompile}) {
  51 +        write_limits(500, 265);
  52 +        exit;
  53 +    }
  54      die "Should not run during miniperl\n";
  55  }
  56  my $prefix = "";
  57 @@ -68,9 +75,6 @@ if ($ENV{PERL_CORE}) {
  58      }
  59  }
  60
  61 --d "lib" or mkdir "lib";
  62 --d "lib/Storable" or mkdir "lib/Storable";
  63 -
  64  if ($^O eq "MSWin32") {
  65      require Win32;
  66      my ($str, $major, $minor) = Win32::GetOSVersion();