Commit 15c4f09479 for perl

commit 15c4f094791979b7cbf4ddc1c89ee0e2f7ad7043
Author: Karl Williamson <khw@cpan.org>
Date:   Thu Oct 1 10:33:28 2026 -0600

    podcheckt.t: Output the actual name of fixed file

    Instead of saying the generic "this pod", give its name.  This came up
    as a result of the db being stored in lowercase (to work on caseless
    filesystems), confusing people because the stored name didn't match an
    existing file.

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index fe534cd31e..73e2457dc0 100644
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -1586,13 +1586,13 @@ unless ($do_deltas) {
         my $another_problem = ($fixed_count == 1) ? "another problem" : "another set of problems";
         my $diff;
         if ($message) {
-            $diff = <<EOF;
-There were $original_count occurrences (now $current_count) in this pod of type
+            $diff = <<~EOF;
+There were $original_count occurrences (now $current_count) in $filename of type
 "$message",
 EOF
         } else {
             $diff = <<EOF;
-There are no longer any problems found in this pod!
+There are no longer any problems found in $filename!
 EOF
         }