This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
devel/scanprov: Add a code letter to generated lines
authorKarl Williamson <khw@cpan.org>
Mon, 29 Jul 2019 18:01:51 +0000 (12:01 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
This is in preparation for other types of lines being handled by
scanprov.

The lines in parts/base that come from mktodo.pl have the codes that nm
outputs for each symbol, plus some internal codes.  This adds M, which
doesn't appear to be an nm code.

(cherry picked from commit cb5fef4b862d528eba649ee18870324ac26a4e68)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/devel/scanprov

index 4d26550..0a8092b 100755 (executable)
@@ -3,6 +3,8 @@
 #
 #  scanprov -- scan Perl headers for provided macros
 #
+#  The lines added have an 'M' code to signify they are macros added by us.
+#
 ################################################################################
 #
 #  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
@@ -120,7 +122,7 @@ for my $v (keys %v) {
   $write and (open F, ">>$file" or die "$file: $!\n");
   for (@new) {
     print "adding $_\n";
-    $write and print F format_output_line($_);
+    $write and print F format_output_line($_, 'M');
   }
   $write and close F;
 }
@@ -128,6 +130,7 @@ for my $v (keys %v) {
 sub format_output_line
 {
     my $sym = shift;
+    my $code = shift;
 
-    return sprintf "%-30s # added by $0\n", $sym;
+    return sprintf "%-30s # $code added by $0\n", $sym;
 }