[perl.git] branch blead, updated. v5.17.1-363-g40099ff

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/40099ff67d477216d1972e2b6eb615552771804f?hp=986d39eeb4080ac83a841368252abaf063cc1486>

- Log -----------------------------------------------------------------
commit 40099ff67d477216d1972e2b6eb615552771804f
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Fri Jul 13 09:37:23 2012 -0700

    mro/basic.t: Squelch warning

M	t/mro/basic.t

commit 69b9dcc0224ddf2b498b9a130c100945d929055e
Author: Robin Barker <rmbarker@cpan.org>
Date:   Wed Jul 11 00:31:05 2012 +0100

    silence warning about use of --libpods
    
    --lipods warns, and I don't think it is needed in this test,
    so I have removed it

M	ext/Pod-Html/t/feature.t

commit 80544570ce886c65d20c02831f86aafecd94c2d9
Author: Robin Barker <rmbarker@cpan.org>
Date:   Wed Jul 11 00:29:56 2012 +0100

    silence compiler warning - casting void* to IV
    
    This warns when void* and IV have different sizes
    There is already a macro to do this conversion cleanly: PTR2IV

M	pp_ctl.c

commit 130e6ef58021f632151b499d74a0da64ceb639f5
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Thu Jul 12 23:15:29 2012 -0700

    mg_vtable.pl: Mention all generated files

M	regen/mg_vtable.pl
-----------------------------------------------------------------------

Summary of changes:
 ext/Pod-Html/t/feature.t |    1 -
 pp_ctl.c                 |    2 +-
 regen/mg_vtable.pl       |    2 ++
 t/mro/basic.t            |    1 +
 4 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ext/Pod-Html/t/feature.t b/ext/Pod-Html/t/feature.t
index 9096523..94354c7 100644
--- a/ext/Pod-Html/t/feature.t
+++ b/ext/Pod-Html/t/feature.t
@@ -21,7 +21,6 @@ convert_n_test("feature", "misc pod-html features",
  "--podroot=$cwd",
  "--title=a title",
  "--quiet",
- "--libpods=perlguts:perlootut",
  );
 
 __DATA__
diff --git a/pp_ctl.c b/pp_ctl.c
index 54f17ae..826a772 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3279,7 +3279,7 @@ Perl_find_runcv_where(pTHX_ U8 cond, void *arg, U32 *db_seqp)
 		    if (CvROOT(cv) != (OP *)arg) continue;
 		    return cv;
 		case FIND_RUNCV_level_eq:
-		    if (level++ != (IV)arg) continue;
+		    if (level++ != PTR2IV(arg)) continue;
 		    /* GERONIMO! */
 		default:
 		    return cv;
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl
index bfc13e2..f96c7a0 100644
--- a/regen/mg_vtable.pl
+++ b/regen/mg_vtable.pl
@@ -2,6 +2,8 @@
 #
 # Regenerate (overwriting only if changed):
 #
+#    mg_names.c
+#    mg_raw.h
 #    mg_vtable.h
 #    pod/perlguts.pod
 #
diff --git a/t/mro/basic.t b/t/mro/basic.t
index 188159e..10aa44c 100644
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -341,6 +341,7 @@ is(eval { MRO_N->testfunc() }, 123);
 
 {
     # Autovivifying @ISA via @{*ISA}
+    no warnings;
     undef *fednu::ISA;
     @{*fednu::ISA} = "pyfg";
     ok +fednu->isa("pyfg"), 'autovivifying @ISA via *{@ISA}';

--
Perl5 Master Repository

• [perl.git] branch blead, updated. v5.17.1-363-g40099ff by Father Chrysostomos