lib/locale.t FILE debug

Perl · May 5, 2021 · 13411fb · 13411fb
1 parent 12734a6
commit 13411fb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/locale.t b/lib/locale.t
@@ -107,7 +107,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";
 }