This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No need to nest printfs. DIE() takes format strings.
authorRafael Garcia-Suarez <rgs@consttype.org>
Fri, 26 Nov 2010 22:30:06 +0000 (23:30 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Fri, 26 Nov 2010 22:30:06 +0000 (23:30 +0100)
pp.c

diff --git a/pp.c b/pp.c
index e4da3d2..47cf756 100644 (file)
--- 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 */