diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-11-26 23:30:06 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-11-26 23:30:06 +0100 |
| commit | 4c540399ef7fb5ef4e3a1dc7391da46f9d1c571c (patch) | |
| tree | 5f5701c203fd4a8fdcf8866777ff7bbfc90e7248 /pp.c | |
| parent | 55a80fa06def8f37cef9b790706d56aeb65cd0dc (diff) | |
| download | perl-4c540399ef7fb5ef4e3a1dc7391da46f9d1c571c.tar.gz | |
No need to nest printfs. DIE() takes format strings.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 */ |