[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2007-02-27 11:32:08 GMT
Modified:  .        WHATSNEW-5.5
Modified:  lib/Vend Interpolate.pm
Log:
issue error message if subroutine for PREFIX-exec is missing

Revision  Changes    Path
1.30      +3 -1      interchange/WHATSNEW-5.5


rev 1.30, prev_rev 1.29
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- WHATSNEW-5.5	15 Feb 2007 15:13:59 -0000	1.29
+++ WHATSNEW-5.5	27 Feb 2007 11:32:08 -0000	1.30
@@ -49,7 +49,9 @@
   than %s in the text or std_label attributes.
 
 * Vend::SQL_Parser required LIMIT clause to be lowercase when it should be
-  case-insensitive 
+  case-insensitive.
+
+* Issue error message if subroutine for PREFIX-exec is missing.
 
 * Fix [on-match]/[no-match] for loop lists without matchlimit generated from
   embedded Perl objects



2.278     +3 -3      interchange/lib/Vend/Interpolate.pm


rev 2.278, prev_rev 2.277
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.277
retrieving revision 2.278
diff -u -r2.277 -r2.278
--- Interpolate.pm	15 Feb 2007 15:13:59 -0000	2.277
+++ Interpolate.pm	27 Feb 2007 11:32:08 -0000	2.278
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.277 2007/02/15 15:13:59 racke Exp $
+# $Id: Interpolate.pm,v 2.278 2007/02/27 11:32:08 racke Exp $
 #
 # Copyright (C) 2002-2007 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.277 $, 10);
+$VERSION = substr(q$Revision: 2.278 $, 10);
 
 @EXPORT = qw (
 
@@ -4177,7 +4177,7 @@
 					(
 						$Vend::Cfg->{Sub}{$1} ||
 						$Global::GlobalSub->{$1} ||
-						sub { 'ERROR' }
+						sub { logOnce('error', "subroutine $1 missing for PREFIX-exec"); errmsg('ERROR') }
 					)->($2,$row,$oexec)
 				#ige;
 		$run =~ s#$B$QR{_filter}$E$QR{'/_filter'}#filter_value($1,$2)#ige;