perl5133delta: Test-Harness to CPAN version 3.21 (6d31366)

[perl5.git] / opcode.pl

diff --git a/opcode.pl b/opcode.pl
index 7f88036..01db025 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -1,4 +1,19 @@
 #!/usr/bin/perl -w
+# 
+# Regenerate (overwriting only if changed):
+#
+#    opcode.h
+#    opnames.h
+#    pp_proto.h
+#    pp.sym
+#
+# from information stored in the DATA section of this file, plus the
+# values hardcoded into this script in @raw_alias.
+#
+# Accepts the standard regen_lib -q and -v args.
+#
+# This script is normally invoked from regen.pl.
+
 use strict;
 
 BEGIN {
@@ -132,7 +147,7 @@ print $on <<"END";
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
- *    2007 by Larry Wall and others
+ *    2007, 2008 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -795,6 +810,7 @@ exists              exists                  ck_exists       is%     S
 rv2hv          hash dereference        ck_rvconst      dt1     
 helem          hash element            ck_null         s2      H S
 hslice         hash slice              ck_null         m@      H L
+boolkeys       boolkeys                ck_fun          %       H
 
 # Explosives and implosives.
 
@@ -1052,7 +1068,7 @@ hintseval eval hints              ck_svconst      s$
 entereval      eval "string"           ck_eval         d%      S
 leaveeval      eval "string" exit      ck_null         1       S
 #evalonce      eval constant string    ck_null         d1      S
-entertry       eval {block}            ck_null         |       
+entertry       eval {block}            ck_eval         d%      
 leavetry       eval {block} exit       ck_null         @       
 
 # Get system info.