[perl.git] branch blead, updated. v5.21.3-663-g6e9fdf6

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6e9fdf669f1f006544b537fb5ffb2d3212704cfa?hp=f9d9e965c852a57faea33a539ecd03a6e825af47>

- Log -----------------------------------------------------------------
commit 6e9fdf669f1f006544b537fb5ffb2d3212704cfa
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Mon Sep 15 06:22:30 2014 -0700

    universal.c:croak_xs_usage: Don’t fetch context twice
-----------------------------------------------------------------------

Summary of changes:
 universal.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/universal.c b/universal.c
index 825dff5..906f74c 100644
--- a/universal.c
+++ b/universal.c
@@ -326,7 +326,7 @@ Perl_croak_xs_usage(const CV *const cv, const char *const 
params)
 
        /* Pants. I don't think that it should be possible to get here. */
        /* diag_listed_as: SKIPME */
-       Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
+       Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
     }
 }
 

--
Perl5 Master Repository