[interchange-cvs] interchange - racke modified
code/OrderCheck/always_pass.oc
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Tue Apr 11 03:48:35 EDT 2006
User: racke
Date: 2006-04-11 07:48:34 GMT
Modified: code/OrderCheck always_pass.oc
Log:
fixed wrong code - usual copy&waste problem
Revision Changes Path
1.2 +2 -3 interchange/code/OrderCheck/always_pass.oc
rev 1.2, prev_rev 1.1
Index: always_pass.oc
===================================================================
RCS file: /var/cvs/interchange/code/OrderCheck/always_pass.oc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- always_pass.oc 3 Apr 2006 21:23:40 -0000 1.1
+++ always_pass.oc 11 Apr 2006 07:48:34 -0000 1.2
@@ -1,12 +1,11 @@
# Copyright 2006 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: always_pass.oc,v 1.1 2006/04/03 21:23:40 racke Exp $
+# $Id: always_pass.oc,v 1.2 2006/04/11 07:48:34 racke Exp $
CodeDef always_pass OrderCheck 1
CodeDef always_pass Description Always succeeds
CodeDef always_pass Routine <<EOR
sub {
- my ($ref, $name, $value, $msg) = @_;
- return (0, $name, $msg || errmsg('succeeded'));
+ return (1, $_[1], '');
}
EOR
More information about the interchange-cvs
mailing list