[perl.git] branch blead, updated. v5.13.7-118-g4c54039

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/4c540399ef7fb5ef4e3a1dc7391da46f9d1c571c?hp=55a80fa06def8f37cef9b790706d56aeb65cd0dc>

- Log -----------------------------------------------------------------
commit 4c540399ef7fb5ef4e3a1dc7391da46f9d1c571c
Author: Rafael Garcia-Suarez <rgs@consttype.org>
Date:   Fri Nov 26 23:30:06 2010 +0100

    No need to nest printfs. DIE() takes format strings.
-----------------------------------------------------------------------

Summary of changes:
 pp.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/pp.c b/pp.c
index e4da3d2..47cf756 100644
--- a/pp.c
+++ b/pp.c
@@ -4712,8 +4712,8 @@ PP(pp_rkeys)
     }
 
     if ( SvTYPE(sv) != SVt_PVHV && SvTYPE(sv) != SVt_PVAV ) {
-	DIE(aTHX_ Perl_form(aTHX_ "Type of argument to %s must be hashref or arrayref",
-	    PL_op_desc[PL_op->op_type] ));
+	DIE(aTHX_ "Type of argument to %s must be hashref or arrayref",
+	    PL_op_desc[PL_op->op_type] );
     }
 
     /* Delegate to correct function for op type */

--
Perl5 Master Repository

• [perl.git] branch blead, updated. v5.13.7-118-g4c54039 by Rafael Garcia-Suarez