[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