[perl.git] branch blead updated. v5.31.2-15-ge3f4f32129

[Tony Cook]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/e3f4f321290813be202cfd9ce45f4ef5b3d96a2f?hp=052ce2b816c991db592124ad1a8ad271dce1a63d>

- Log -----------------------------------------------------------------
-----------------------------------------------------------------------

Summary of changes:
 dist/Devel-PPPort/mktests.PL | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/dist/Devel-PPPort/mktests.PL b/dist/Devel-PPPort/mktests.PL
index 02c9110463..8b3e708f65 100644
--- a/dist/Devel-PPPort/mktests.PL
+++ b/dist/Devel-PPPort/mktests.PL
@@ -41,11 +41,14 @@ sub generate_tests
       print "generating $testfile\n";
 
       my $tmpl = $template;
-      $tmpl =~ s/__SOURCE__/$file/mg;
+      # ensure we get the same result on Win32
+      (my $source = $file) =~ s(\\)(/)g;
+      $tmpl =~ s/__SOURCE__/$source/mg;
       $tmpl =~ s/__PLAN__/$spec->{OPTIONS}{tests}{plan}/mg;
       $tmpl =~ s/^__TESTS__$/$spec->{tests}/mg;
 
       open FH, ">$testfile" or die "$testfile: $!\n";
+      binmode FH;
       print FH $tmpl;
       close FH;
 

-- 
Perl5 Master Repository