diff options
-rw-r--r-- | utils/count_lines/count_lines.lprl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/count_lines/count_lines.lprl b/utils/count_lines/count_lines.lprl index 50205ee796..bfaad51804 100644 --- a/utils/count_lines/count_lines.lprl +++ b/utils/count_lines/count_lines.lprl @@ -14,7 +14,7 @@ my $binPath = $FindBin::Bin; foreach $f ( @ARGV ) { if ( $f =~ /\.lhs$/ ) { - open(INF, "$binPath/../../inplace/lib/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"; } @@ -22,6 +22,7 @@ foreach $f ( @ARGV ) { while (<INF>) { s/--.*//; s/{-.*-}//; + s/\/\/.*//; next if /^\s*$/; $cnt++; } |