Sometimes, there is no /usr/bin/perl.
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2009, 2011, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
sub melange {
my $tableau=shift;
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2013-2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2012, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2011-2012, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2012, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
if($#ARGV!=0) {
die "Usage: perl transfrom_optorsim_platform.pl <file.conf>\n";
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
use Switch;
my $toversion=3;
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
use Switch;
my $site="";
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
my $toversion=3;
my $nb_peer = $ARGV[0];
-#!/usr/bin/perl
+#!/usr/bin/env perl
# Copyright (c) 2011, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/perl
+#!/usr/bin/env perl
# Copyright (c) 2005, 2007, 2010, 2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2006-2007, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
+
#use Data::Dumper;
use XFig;
use POSIX;
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2012-2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
# input file = AddTest.txt
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2012-2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
+
my @argv = ("valgrind");
my $count = 0;
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2012, 2014. The SimGrid Team.
# All rights reserved.
# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
+use warnings;
if($#ARGV!=1) {
die "Usage: perl make_tesh.pl <directory> <old.tesh>\n";
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2005, 2012-2014. The SimGrid Team.
# All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the terms of the license (GNU LGPL) which comes with this package.
+use warnings;
+
($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file>";
my($type) = "";
-#!/usr/bin/perl
+#!/usr/bin/env perl
# Copyright (c) 2008, 2010, 2012-2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2013-2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/perl
+#!/usr/bin/env perl
# Copyright (c) 2013-2015. The SimGrid Team.
# All rights reserved.
# Copyright 2003, Dan Kegel. Licensed under GPL. See the file ../COPYING for details.
use strict;
+use warnings;
die "Please install iamerican to use that script."
unless (-r "/usr/lib/ispell/american.hash");
-#!/usr/bin/python
+#!/usr/bin/env python
# Copyright (c) 2013-2014. The SimGrid Team.
# All rights reserved.
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
# Wrapper around the real `as` which adds filtering capabilities.
require "tempfile"
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Transform assembly in order to clean each stack frame for X86_64.
use strict;
-$SIG{__WARN__} = sub { die @_ };
+use warnings;
+$SIG{__WARN__} = sub { die @_ };
# Whether we are still scanning the content of a function:
our $scanproc = 0;
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Compiler wrapper with stack-cleaner support (enabled by default).
# Usage: ./compiler-wrapper target-compiler args [-f[no-]stack-cleaner]
+use warnings;
+
use File::Basename;
my $compiler = shift(@ARGV);
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# Copyright (c) 2010, 2014. The SimGrid Team.
# All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the terms of the license (GNU LGPL) which comes with this package.
+use warnings;
+
use Term::ANSIColor qw{:constants};
$Term::ANSIColor::AUTORESET = 1;