#!/usr/bin/env perl
-# Copyright (c) 2013-2015. The SimGrid Team.
+# Copyright (c) 2013-2018. The SimGrid Team.
# All rights reserved.
# This program is free software; you can redistribute it and/or modify it
open(PIN, "ispell -d american -p $DICTFILE -l < $TEMPFILE | sort -uf |") || die;
my @badwords;
while (my $err = <PIN>) {
- chomp $err;
+ chomp $err;
push(@badwords, $err) if ($err =~ /\w/ && length($err)>0);
}
close(PIN) || die;
if (@badwords) {
print "$file: ".scalar(@badwords)." errors: '".join("','",@badwords)."'\n";
- $total += scalar(@badwords);
+ $total += scalar(@badwords);
}
}