diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-01-19 20:52:40 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-01-19 20:52:40 +0000 |
commit | 974ed2bedc78ab300f90ecbabdd0ac9c1fcf0589 (patch) | |
tree | b7cac5755701ad576cc03fcab881494152fa8e92 /lib/sbin/f_depend_modules.pl | |
parent | 50e996a7aaed180f7dae413b773282b57c1905b1 (diff) |
Fix dependency generation
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3535 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/f_depend_modules.pl')
-rwxr-xr-x | lib/sbin/f_depend_modules.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/sbin/f_depend_modules.pl b/lib/sbin/f_depend_modules.pl index f226ae69..f11f9bfa 100755 --- a/lib/sbin/f_depend_modules.pl +++ b/lib/sbin/f_depend_modules.pl @@ -3,6 +3,8 @@ # Create dependencies for Fortran 90 "use" and "include" statements +use strict; + my $srcfile = $ARGV[0]; my $dest = $ARGV[1]; my $srcdir = $ARGV[2]; @@ -64,7 +66,12 @@ while (<STDIN>) { } } if (! $found) { - print STDERR "$srcfile:$line: Warning: While tracing module depencencies: Source file for module $name not found\n"; + print STDERR "$srcfile:$line: Warning: While tracing module depencencies: Source file for module \"$name\" not found\n"; + if (@otherdirs) { + print STDERR " Searched in thorn directory and in [" . join(', ', @otherdirs) . "]\n"; + } else { + print STDERR " Searched in thorn directory only.\n"; + } } } } |