From: Martin Quinson <martin.quinson@loria.fr>
Date: Fri, 25 Sep 2015 07:09:44 +0000 (+0200)
Subject: [tesh] kill some more unused variables
X-Git-Tag: v3_12~120
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/d213730ffa04b59ccd00c369ab2e66228e3f676f?ds=sidebyside

[tesh] kill some more unused variables

And use English for some other variables
---

diff --git a/tools/tesh/tesh.pl b/tools/tesh/tesh.pl
index 39a92e1684..b0184cc3b9 100755
--- a/tools/tesh/tesh.pl
+++ b/tools/tesh/tesh.pl
@@ -19,8 +19,6 @@ tesh -- testing shell
 B<tesh> [I<options>] I<tesh_file>
 
 =cut
-my($bindir)=".";
-my($srcdir)=".";
 my($timeout)=0;
 my($time_to_wait)=0;
 my $path = $0;
@@ -51,7 +49,7 @@ use English;
 ## Portability bits for windows
 ##
 
-use constant RUNNING_ON_WINDOWS => ($^O =~ /^(?:mswin|dos|os2)/oi);
+use constant RUNNING_ON_WINDOWS => ($OSNAME =~ /^(?:mswin|dos|os2)/oi);
 use POSIX qw(:sys_wait_h WIFEXITED WIFSIGNALED WIFSTOPPED WEXITSTATUS WTERMSIG WSTOPSIG
              :signal_h SIGINT SIGTERM SIGKILL SIGABRT SIGSEGV);
 # These are not implemented on windows