[interchange] Correct printf arguments in error message
Jon Jensen <[email protected]> Thu, 02 Nov 2017 05:54:00 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit ec4fcd882ac26d17e6ead1398a1be68197cb525c Author: Jon Jensen <[email protected]> Date: Wed Nov 1 19:02:15 2017 -0600 Correct printf arguments in error message Before the fix this unintentionally printed $@ twice. eg/survey_wizard/survey_wizard.coretag | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) --- diff --git a/eg/survey_wizard/survey_wizard.coretag b/eg/survey_wizard/survey_wizard.coretag index 3cfea9d..1b50b6e 100644 --- a/eg/survey_wizard/survey_wizard.coretag +++ b/eg/survey_wizard/survey_wizard.coretag @@ -1,4 +1,4 @@ -# Copyright 2002-2007 Interchange Development Group and others +# Copyright 2002-2017 Interchange Development Group and others # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -8,7 +8,7 @@ UserTag survey-wizard Order name UserTag survey-wizard AddAttr UserTag survey-wizard HasEndTag -UserTag survey-wizard Version $Revision: 1.3 $ +UserTag survey-wizard Version 1.5 UserTag survey-wizard Routine <<EOR use vars qw/$Session $Tag $CGI $Tmp $Scratch $Values $ready_safe/; @@ -875,7 +875,7 @@ sub { }; if($@) { $Tag->error( - "error during perl conditional: $@\ncode was:\n%s", + "error during perl conditional: %s\ncode was:\n%s", $@, $optref->{_condition}, );