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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri Aug 19 02:29:11 EDT 2005


User:      jon
Date:      2005-08-19 06:29:11 GMT
Modified:  lib/Vend Config.pm
Log:
Make code/ directory etc. work when a symlink. This seems to have broken
with the new AccumulateCode function.

Revision  Changes    Path
2.182     +7 -7      interchange/lib/Vend/Config.pm


rev 2.182, prev_rev 2.181
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.181
retrieving revision 2.182
diff -u -u -r2.181 -r2.182
--- Config.pm	16 Aug 2005 20:38:49 -0000	2.181
+++ Config.pm	19 Aug 2005 06:29:11 -0000	2.182
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.181 2005/08/16 20:38:49 jon Exp $
+# $Id: Config.pm,v 2.182 2005/08/19 06:29:11 jon Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -52,7 +52,7 @@
 use Vend::Data;
 use Vend::Cron;
 
-$VERSION = substr(q$Revision: 2.181 $, 10);
+$VERSION = substr(q$Revision: 2.182 $, 10);
 
 my %CDname;
 my %CPname;
@@ -1518,7 +1518,7 @@
 		$ext =~ /Tag$/ or return;
 		push @files, [ $group, $tname ];
 	};
-	File::Find::find($wanted, @$Global::TagDir);
+	File::Find::find({ wanted => $wanted, follow => 1 }, @$Global::TagDir);
 
 	$Global::TagGroup ||= {};
 	for(@files) {
@@ -1542,7 +1542,7 @@
 		my $ext = $extmap{lc $1} or return;
 		push @files, [ $File::Find::name, $ext];
 	};
-	File::Find::find($wanted, $Global::CodeRepository);
+	File::Find::find({ wanted => $wanted, follow => 1 }, $Global::CodeRepository);
 
 	my $c = $Global::TagLocation = {};
 
@@ -1595,7 +1595,7 @@
 		my $ext = $extmap{lc $1} or return;
 		push @files, [ $File::Find::name, $ext];
 	};
-	File::Find::find($wanted, @$Global::TagDir);
+	File::Find::find({ wanted => $wanted, follow => 1 }, @$Global::TagDir);
 
 	local($configfile);
 	for(@files) {
@@ -2250,7 +2250,7 @@
 	};
 
 	if(@cdirs) {
-		File::Find::find($wanted, @cdirs);
+		File::Find::find({ wanted => $wanted, follow => 1 }, @cdirs);
 	}
 #::logDebug("gfiles=" . ::uneval(\@gfiles));
 #::logDebug("cfiles=" . ::uneval(\@cfiles));
@@ -2369,7 +2369,7 @@
 	};
 
 	if(@cdirs) {
-		File::Find::find($wanted, @cdirs);
+		File::Find::find({ wanted => $wanted, follow => 1 }, @cdirs);
 	}
 #::logDebug("ufiles=" . ::uneval(\@ufiles));
 #::logDebug("ifiles=" . ::uneval(\@ifiles));








More information about the interchange-cvs mailing list