customized.dat: Add generator note

So that people like me who do not do this very often can see just
by looking at the file how it got generated.

diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 00a490c..3787dfa 100644 (file)
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -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

diff --git a/t/porting/customized.t b/t/porting/customized.t
index 5c37391..d425e5b 100644 (file)
--- a/t/porting/customized.t
+++ b/t/porting/customized.t
@@ -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;