X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/dccf1b41e9c7b5a696f01abceaa2779fe65f154f..2fc459da5e81c223895e15121c21678aa8f445f1:/tools/internal/spell_comments.pl diff --git a/tools/internal/spell_comments.pl b/tools/internal/spell_comments.pl index 6c19744fb9..1852ad0149 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-2018. 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); } }