This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
customized.dat: Add generator note
authorFather Chrysostomos <sprout@cpan.org>
Wed, 1 Nov 2017 05:18:10 +0000 (22:18 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 1 Nov 2017 22:52:08 +0000 (15:52 -0700)
So that people like me who do not do this very often can see just
by looking at the file how it got generated.

t/porting/customized.dat
t/porting/customized.t

index 00a490c..3787dfa 100644 (file)
@@ -1,3 +1,6 @@
+# Regenerate this file using:
+#     cd t
+#     ./perl -I../lib porting/customized.t --regen
 Devel::PPPort dist/Devel-PPPort/parts/embed.fnc e030719d9c6921810554a8e2d398543348b4878c
 Digest cpan/Digest/Digest.pm 43f7f544cb11842b2f55c73e28930da50774e081
 Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6
index 5c37391..d425e5b 100644 (file)
@@ -74,10 +74,16 @@ my $data_fh;
 
 if ( $regen ) {
   open $data_fh, '>:raw', $customised or die "Can't open $customised";
+  print $data_fh <<'#';
+# Regenerate this file using:
+#     cd t
+#     ./perl -I../lib porting/customized.t --regen
+#
 }
 else {
   open $data_fh, '<:raw', $customised or die "Can't open $customised";
   while (<$data_fh>) {
+    next if /^#/;
     chomp;
     my ($module,$file,$sha) = split ' ';
     $customised{ $module }->{ $file } = $sha;