[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->{$_} ||= {};