#!/usr/bin/env perl
-# Copyright (c) 2013-2020. The SimGrid Team.
+# Copyright (c) 2013-2022. 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;