[interchange] Correct printf arguments in error message

Jon Jensen interchange-cvs at icdevgroup.org
Thu Nov 2 05:54:00 UTC 2017


commit ec4fcd882ac26d17e6ead1398a1be68197cb525c
Author: Jon Jensen <jon at endpoint.com>
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},
 					);



More information about the interchange-cvs mailing list