[interchange-cvs] interchange - jon modified lib/Vend/Interpolate.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Nov 7 17:08:51 EST 2005


User:      jon
Date:      2005-11-07 22:08:51 GMT
Modified:  lib/Vend Interpolate.pm
Log:
>From Ethan Rowe <ethan at endpoint.com>:

Fixed bug in &Vend::Interpolate::iterate_array_list that could cause
the $Row object to be an empty hashref in the event of certain looping
conditions that cause the field hash to be populated but not the
fieldname array.

Revision  Changes    Path
2.260     +4 -2      interchange/lib/Vend/Interpolate.pm


rev 2.260, prev_rev 2.259
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.259
retrieving revision 2.260
diff -u -u -r2.259 -r2.260
--- Interpolate.pm	7 Nov 2005 22:06:25 -0000	2.259
+++ Interpolate.pm	7 Nov 2005 22:08:50 -0000	2.260
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.259 2005/11/07 22:06:25 jon Exp $
+# $Id: Interpolate.pm,v 2.260 2005/11/07 22:08:50 jon Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.259 $, 10);
+$VERSION = substr(q$Revision: 2.260 $, 10);
 
 @EXPORT = qw (
 
@@ -4000,6 +4000,8 @@
 
 	# The $Row object needs to be built per-row, so undef it initially.
 	$fa ||= [];
+	@$fa = sort { $fh->{$a} <=> $fh->{$b} } keys %$fh
+		if ! @$fa and ref $fh eq 'HASH';
 	undef $Row;
 
 	my $lim;








More information about the interchange-cvs mailing list