[interchange-cvs] interchange - jon modified scripts/interchange.PL

[interchange-core@icdevgroup.org]

User:      jon
Date:      2003-01-24 07:30:44 GMT
Modified:  scripts  Tag: STABLE_4_8-branch interchange.PL
Log:
Fix call to Vend::Interpolate::input_filter_do(). Problem revealed by
earlier bugfix.

Revision  Changes    Path
No                   revision



No                   revision



2.7.2.21  +3 -3      interchange/scripts/interchange.PL


rev 2.7.2.21, prev_rev 2.7.2.20
Index: interchange.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.7.2.20
retrieving revision 2.7.2.21
diff -u -u -r2.7.2.20 -r2.7.2.21
--- interchange.PL	24 Jan 2003 06:51:53 -0000	2.7.2.20
+++ interchange.PL	24 Jan 2003 07:30:44 -0000	2.7.2.21
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.8.7
 #
-# $Id: interchange.PL,v 2.7.2.20 2003/01/24 06:51:53 jon Exp $
+# $Id: interchange.PL,v 2.7.2.21 2003/01/24 07:30:44 jon Exp $
 #
 # Copyright (C) 1996-2003 Red Hat, Inc. and
 # Interchange Development Group, http://www.icdevgroup.org/
@@ -2180,7 +2180,7 @@
 
 	if ($macro = $Vend::Cfg->{Filter}) {
 		for(keys %$macro) {
-			Vend::Interpolate::input_filter_do($_, { 'op' => $macro->{$_} } );
+			Vend::Interpolate::input_filter_do($_, { op => $macro->{$_} });
 		}
 	}
 
@@ -2190,7 +2190,7 @@
 		)
 	{
 		for(keys %$macro) {
-			Vend::Interpolate::input_filter_do($_, $macro->{$_});
+			Vend::Interpolate::input_filter_do($_, { op => $macro->{$_} });
 		}
 	}