be case insensitive when trying to change main name in F90 files

[simgrid.git] / buildtools / Cmake / Scripts / my_valgrind.pl

diff --git a/buildtools/Cmake/Scripts/my_valgrind.pl b/buildtools/Cmake/Scripts/my_valgrind.pl
index 089629e..bbd72c5 100755 (executable)
--- a/buildtools/Cmake/Scripts/my_valgrind.pl
+++ b/buildtools/Cmake/Scripts/my_valgrind.pl
@@ -3,7 +3,7 @@ use strict;
 my @argv = ("valgrind");
 my $count = 0;
 
-while (my $arg = shift) {
+while (defined(my $arg = shift)) {
     print "arg($count)$arg\n";
     if($arg eq "--cd"){
         $arg = shift;