Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add patching of make_ext.pl for virtualisation fixes

  • Loading branch information...
commit 6f7b6eafb637fcf30c7e8a21c9e3a4c2908f266c 1 parent 7783962
@bingos authored
Showing with 30 additions and 1 deletion.
  1. +1 −1  dist.ini
  2. +29 −0 lib/Devel/PatchPerl.pm
View
2  dist.ini
@@ -1,5 +1,5 @@
name = Devel-PatchPerl
-version = 0.52
+version = 0.54
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams and Marcus Holland-Moritz
View
29 lib/Devel/PatchPerl.pm
@@ -128,6 +128,14 @@ my @patch = (
[ \&_patch_odbm_file_hints_linux ],
],
},
+ {
+ perl => [
+ qr/(?^:5.1(?:[24].\d+|0.1))/,
+ ],
+ subs => [
+ [ \&_patch_make_ext_pl ],
+ ],
+ },
);
sub patch_source {
@@ -1713,6 +1721,27 @@ sub _patch_odbm_file_hints_linux
END
}
+sub _patch_make_ext_pl
+{
+ _patch(<<'END');
+diff --git a/make_ext.pl b/make_ext.pl
+index 13a15b4..6425e37 100644
+--- a/make_ext.pl
++++ b/make_ext.pl
+@@ -377,6 +377,10 @@ WriteMakefile(
+ EOM
+ close $fh or die "Can't close Makefile.PL: $!";
+ }
++ eval {
++ my $ftime = time - 4;
++ utime $ftime, $ftime, 'Makefile.PL';
++ };
+ print "\nRunning Makefile.PL in $ext_dir\n";
+
+ # Presumably this can be simplified
+END
+}
+
qq[patchin'];
=pod
Please sign in to comment.
Something went wrong with that request. Please try again.