diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-09-23 18:22:51 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-09-23 18:22:51 +0000 |
| commit | 1be654d67e2ab7fd317c3aa9a9cc702af7d5f708 (patch) | |
| tree | db7eec51c582e470ae59d553b431a6e0d9586f14 /utils | |
| parent | fbbe50f3e3d9bf4d9395b66cf8a51f52496ca98c (diff) | |
| download | haskell-1be654d67e2ab7fd317c3aa9a9cc702af7d5f708.tar.gz | |
Make count_lines work with the new directory layout
Diffstat (limited to 'utils')
| -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"; } |