pkgs/development/perl-modules/ExtUtils-Constant-fix-indirect-method-call-in-test.patch

   1 https://rt.cpan.org/Public/Bug/Display.html?id=132995
   2
   3 From 94b5fc74c3d7ed835e83bac40632962af32f5b30 Mon Sep 17 00:00:00 2001
   4 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <ilmari@ilmari.org>
   5 Date: Mon, 13 Jul 2020 22:08:45 +0100
   6 Subject: [PATCH] Fix indirect method call in ExtUtils::Constant test
   7
   8 It puts both "use $];" and "bootstrap $package \$VERSION;" in the
   9 generated test module, which is going to break if we ever remove
  10 `indirect` from the current feature bundle.
  11
  12 Fix by making the method call direct instead.
  13 ---
  14  t/Constant.t | 2 +-
  15  1 file changed, 1 insertion(+), 1 deletion(-)
  16
  17 diff --git a/t/Constant.t b/t/Constant.t
  18 index d6b45668da..526a32c779 100644
  19 --- a/t/Constant.t
  20 +++ b/t/Constant.t
  21 @@ -435,7 +435,7 @@ EOT
  22    print FH ");\n";
  23    # Print the AUTOLOAD subroutine ExtUtils::Constant generated for us
  24    print FH autoload ($package, $]);
  25 -  print FH "bootstrap $package \$VERSION;\n1;\n__END__\n";
  26 +  print FH "$package->bootstrap(\$VERSION);\n1;\n__END__\n";
  27    close FH or die "close $pm: $!\n";
  28
  29    ################ test.pl
  30 --
  31 2.26.2