git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11709
e03df62e-2008-0410-955e-
edbf42e46eb7
return $f2dep{$f} if exists $f2dep{$f};
$f2dep{$f} = '';
my %dep;
return $f2dep{$f} if exists $f2dep{$f};
$f2dep{$f} = '';
my %dep;
+ my $link = readlink $f;
+ if (defined $link) {
+ $link = "$basedir/$link" unless $link =~ m#^/#;
+ $dep{$link}++;
+ }
open my $in, '<', $f or die "Could not read $f";
while (<$in>) {
if (/^\s*#\s*include\s*"([^"]+)"/) {
open my $in, '<', $f or die "Could not read $f";
while (<$in>) {
if (/^\s*#\s*include\s*"([^"]+)"/) {