diff options
| author | Karl Williamson <khw@cpan.org> | 2015-12-19 09:49:00 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-12-19 21:03:38 -0700 |
| commit | 13f7995862ecd2f387b4b447464429871c52b1a3 (patch) | |
| tree | dd3fdc0984c1be17e2e48a8881ad2ce9c0810c96 /lib/unicore | |
| parent | 1059e5b21f7e16d18b3df847d2e5d3f343f44f1c (diff) | |
| download | perl-13f7995862ecd2f387b4b447464429871c52b1a3.tar.gz | |
mktables: Add "$0:" to its first output
So in a make, it is abundantly clear where the messages are coming from
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 57e05f3630..be66780134 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -19332,10 +19332,10 @@ if (! $rebuild) { } } if (! $rebuild) { - print "Files seem to be ok, not bothering to rebuild. Add '-w' option to force build\n"; + print "$0: Files seem to be ok, not bothering to rebuild. Add '-w' option to force build\n"; exit(0); } -print "Must rebuild tables.\n" if $verbosity >= $VERBOSE; +print "$0: Must rebuild tables.\n" if $verbosity >= $VERBOSE; # Ready to do the major processing. First create the perl pseudo-property. $perl = Property->new('perl', Type => $NON_STRING, Perl_Extension => 1); |