X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/6fd2d5b91c2857c039b4ed3b96d8e5bc8d94e0c7..d7fb52aa1f18cd70a51a6d8913c1a4513fea7ce7:/tools/internal/spell_comments.pl diff --git a/tools/internal/spell_comments.pl b/tools/internal/spell_comments.pl index 6c19744fb9..ceea60d83c 100755 --- a/tools/internal/spell_comments.pl +++ b/tools/internal/spell_comments.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl -# Copyright (c) 2013-2015. The SimGrid Team. +# Copyright (c) 2013-2019. The SimGrid Team. # All rights reserved. # This program is free software; you can redistribute it and/or modify it @@ -47,14 +47,14 @@ foreach my $file (@ARGV) { open(PIN, "ispell -d american -p $DICTFILE -l < $TEMPFILE | sort -uf |") || die; my @badwords; while (my $err = ) { - 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); } }