[interchange-cvs] interchange - heins modified lib/Vend/Config.pm

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Tue May 13 16:12:00 2003


User:      heins
Date:      2003-05-13 20:11:58 GMT
Modified:  lib/Vend Config.pm
Log:
* Fix minor bug found by Jon.

Revision  Changes    Path
2.115     +4 -4      interchange/lib/Vend/Config.pm


rev 2.115, prev_rev 2.114
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.114
retrieving revision 2.115
diff -u -r2.114 -r2.115
--- Config.pm	13 May 2003 19:05:18 -0000	2.114
+++ Config.pm	13 May 2003 20:11:58 -0000	2.115
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.114 2003/05/13 19:05:18 mheins Exp $
+# $Id: Config.pm,v 2.115 2003/05/13 20:11:58 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 # Copyright (C) 2003 ICDEVGROUP <interchange@icdevgroup.org>
@@ -48,7 +48,7 @@
 use Vend::File;
 use Vend::Data;
 
-$VERSION = substr(q$Revision: 2.114 $, 10);
+$VERSION = substr(q$Revision: 2.115 $, 10);
 
 my %CDname;
 my %CPname;
@@ -2393,7 +2393,7 @@
 			@base{@base} = @base;
 
 			my %seen;
-			my @types = grep !$seen{$_}, keys %$o, @base;
+			my @types = grep !$seen{$_}++, keys %$o, @base;
 
 			for(@types) {
 				my $loc = $o->{$_} ||= {};
@@ -2435,7 +2435,7 @@
 			@base{@base} = @base;
 
 			my %seen;
-			my @types = grep !$seen{$_}, keys %$o, @base;
+			my @types = grep !$seen{$_}++, keys %$o, @base;
 
 			for(@types) {
 				my $loc = $o->{$_} ||= {};