[interchange] Ensure that &set always succeeds within a profile check.

Stefan Hornburg interchange-cvs at icdevgroup.org
Tue Mar 29 07:51:20 UTC 2011


commit 753e02291563f06e0185c29fd0f857b741f56e40
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Tue Mar 29 09:47:29 2011 +0200

    Ensure that &set always succeeds within a profile check.
    See documentation at http://www.icdevgroup.org/doc/frames/ic_ecommerce_21.html
    for reference.

 lib/Vend/Order.pm |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Order.pm b/lib/Vend/Order.pm
index c53793b..b0a47bf 100644
--- a/lib/Vend/Order.pm
+++ b/lib/Vend/Order.pm
@@ -126,6 +126,7 @@ my %Parse = (
 								my($ref,$params) = @_;
 								my ($var, $value) = split /\s+/, $params, 2;
 								$::Values->{$var} = $value;
+								return 1;
 							},
 	'&setcheck'			=>	sub {		
 								my($ref,$params) = @_;



More information about the interchange-cvs mailing list