Devel::PPPort - Reconciliate changes with GitHub 26a6a909

Author: atoomic

dist/Devel-PPPort/HACKERS

@@ -294,25 +294,6 @@ which are described further below).
 
 =over 4
 
-Here you can add additional information for a given item that will be displayed
-when F<ppport.h> is run.  If your item is named C<foo>, you add a
-comment like so:
-
- /* Hint: foo
-    paragraphs of stuff about foo you want to have
-    shown when ppport.h outputs something about foo
- */
-
-This will cause S<C<perl ppport.h>> to display this hint when it outputs
-something about C<foo>.
-
-A more serious caution about C<foo> can be displayed by instead saying
-
- /* Warning: foo
-    paragraphs of stuff about foo you want to have
-    shown when ppport.h outputs something about foo
- */
-
 =item *
 
 You will first need a whole bunch of different Perls, the more, the better, but

dist/Devel-PPPort/mktests.PL

@@ -41,9 +41,9 @@ sub generate_tests
       print "generating $testfile\n";
 
       my $tmpl = $template;
-      # ensure we get the same result on Win32
-      (my $source = $file) =~ s(\\)(/)g;
-      $tmpl =~ s/__SOURCE__/$source/mg;
+      my $canonfile = $file;
+      $canonfile =~ tr!\\!/!; # MSWin32 use backslashes
+      $tmpl =~ s/__SOURCE__/$canonfile/mg;
       $tmpl =~ s/__PLAN__/$spec->{OPTIONS}{tests}{plan}/mg;
       $tmpl =~ s/^__TESTS__$/$spec->{tests}/mg;