Opcode: 1.35c add new iter ops

and note it in Module::CoreList

Author: Reini Urban

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -4,7 +4,7 @@ use vars qw/$VERSION %released %version %families %upstream
 	    %bug_tracker %deprecated %delta/;
 use Module::CoreList::TieHashDelta;
 use version;
-$VERSION = '5.20160730c';
+$VERSION = '5.20160805c';
 $VERSION =~ s/c$//;
 
 sub _released_order {   # Sort helper, to make '?' sort after everything else
@@ -12756,10 +12756,11 @@ for my $version ( sort { version_sort($a, $b) } keys %released ) {
         delta_from => '5.024000c',
         changed => {
             'B::Op_private'         => '5.025000',
-            'Module::CoreList'      => '5.20160730c',
+            'Module::CoreList'      => '5.20160805c',
             'Module::CoreList::TieHashDelta'=> '5.20160618',
             'Module::CoreList::Utils'=> '5.20160730c',
             'B'                     => '1.62_03',
+            'Opcode'                => '1.35c',
         },
         removed => {
         }

ext/Opcode/Opcode.pm

@@ -6,7 +6,7 @@ use strict;
 
 our($VERSION, @ISA, @EXPORT_OK);
 
-$VERSION = "1.34c";
+$VERSION = "1.35c";
 
 use Carp;
 use Exporter ();
@@ -374,7 +374,7 @@ used to implement a resource attack (e.g., consume all available CPU time).
 
     grepstart grepwhile
     mapstart mapwhile
-    enteriter iter
+    enteriter iter iter_ary iter_lazyiv
     enterloop leaveloop unstack
     last next redo
     goto

pp_ctl.c

@@ -2146,7 +2146,7 @@ PP(pp_enteriter)
 	}
         SvREFCNT_inc_simple_void_NN(itersave);
 	cxflags = (PL_op->op_private & OPpITER_DEF)
-            ? CXp_FOR_PAD|CXp_FOR_DEF
+            ? CXp_FOR_PAD|CXp_FOR_DEF 	/* my $_ */
             : CXp_FOR_PAD;
     }
     else {
@@ -2180,9 +2180,9 @@ PP(pp_enteriter)
     cx_pushloop_for(cx, itervarp, itersave);
 
     if (PL_op->op_flags & OPf_STACKED) {
-        /* OPf_STACKED implies either a single array: for(@), with a
+        /* OPf_STACKED implies either a single array: for (@), with a
          * single AV on the stack, or a range: for (1..5), with 1 and 5 on
-         * the stack */
+         * the stack.  */
 	SV *maybe_ary = POPs;
 	if (SvTYPE(maybe_ary) != SVt_PVAV) {
             /* range */

t/porting/customized.dat

@@ -47,7 +47,7 @@ File::Path cpan/File-Path/lib/File/Path.pm 623799e76e11a756ca5e18749d8bc1bdc3800
 File::Path cpan/File-Path/t/Path_win32.t 94b9276557ce7f80b91f6fd9bfa7a0cd9bf9683e
 File::Spec dist/PathTools/t/rel2abs_vs_symlink.t abbf1a890a1b6fefebc0c8a9e2849694ade89fa9
 JSON::PP cpan/JSON-PP/lib/JSON/PP.pm ea210ef037088b8ff77db8a0c149e09032a4beab
-Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm 4d912fda39277aaf6acc13bfe9e3a780e42cdb5f
+Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm 748b32ab22686fbfba9e849816e04f6bb86de424
 Module::CoreList dist/Module-CoreList/lib/Module/CoreList/Utils.pm a60ec2d94e598803f82185075549503593c1ce93
 Module::Metadata cpan/Module-Metadata/t/lib/GeneratePackage.pm 502ffbe2609947430e6aa1a3df8064b3fef3e086
 Net::Domain cpan/libnet/lib/Net/Domain.pm 3ada368520d3179da8bc1b28ae61a99b4981b758