diff options
| -rw-r--r-- | utils/count_lines/count_lines | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/utils/count_lines/count_lines b/utils/count_lines/count_lines index ad5aa52311..1e0942c93f 100644 --- a/utils/count_lines/count_lines +++ b/utils/count_lines/count_lines @@ -1,14 +1,18 @@ #! /usr/bin/perl -# + +use FindBin; + %DirCount = (); %ModCount = (); %DirComments = (); %ModComments = (); +my $binPath = $FindBin::Bin; + foreach $f ( @ARGV ) { if ( $f =~ /\.lhs$/ ) { - open(INF, "../utils/unlit/unlit $f - |") || die "Couldn't unlit $f!\n"; + open(INF, "$binPath/../../inplace/lib/unlit $f - |") || die "Couldn't unlit $f!\n"; } else { open(INF, "< $f") || die "Couldn't open $f!\n"; } |