Note where B::Op_private’s pod is to be edited

diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
index 1659e7d..1faa630 100644 (file)
--- a/lib/B/Op_private.pm
+++ b/lib/B/Op_private.pm
@@ -8,7 +8,8 @@
 #    License or the Artistic License, as specified in the README file.
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-# This file is built by regen/opcode.pl from data in regen/op_private.
+# This file is built by regen/opcode.pl from data in
+# regen/op_private and pod embedded in regen/opcode.pl.
 # Any changes made here will be lost!
 
 =head1 NAME

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 9baea56..f46c79c 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -34,7 +34,8 @@ my $on = open_new('opnames.h', '>',
 
 my $oprivpm = open_new('lib/B/Op_private.pm', '>',
                  { by => 'regen/opcode.pl',
-                    from => 'data in regen/op_private',
+                    from => "data in\nregen/op_private "
+                           ."and pod embedded in regen/opcode.pl",
                     style => '#',
                    file => 'lib/B/Op_private.pm',
                     copyright => [2014 .. 2014] });