lib/locale.t FILE debug

Perl · Nov 22, 2023 · d544a4b · d544a4b
1 parent 99944e5
commit d544a4b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/locale.t b/lib/locale.t
@@ -108,7 +108,7 @@ my $dumper = Dumpvalue->new(
 
 sub debug {
   return unless $debug;
-  my($mess) = join "", '# ', @_;
+  my($mess) = join "", '# ', __FILE__, ": ", @_;
   chomp $mess;
   print STDERR $dumper->stringify($mess,1), "\n";
 }