X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/3b53885f888f2539a533797e76a3f3ff84cdfe0c..7820e0e1436e6b1c4968e2bb7653285a5a11b0bc:/tools/stack-cleaner/clean-stack-filter

diff --git a/tools/stack-cleaner/clean-stack-filter b/tools/stack-cleaner/clean-stack-filter
index a2f91aa0ad..8b15cd7c0f 100755
--- a/tools/stack-cleaner/clean-stack-filter
+++ b/tools/stack-cleaner/clean-stack-filter
@@ -1,9 +1,10 @@
-#!/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;
@@ -14,7 +15,6 @@ our $lines = "";
 # Size of the stack for this function:
 our $size = 0;
 
-
 # Counter for assigning unique ids to labels:
 our $id=0;
 
@@ -51,14 +51,14 @@ while (<>) {
   if ($scanproc) {
       $lines = $lines . $_;
       if (m/^[ \t]*.cfi_endproc$/) {
-	  emit_code();
+        emit_code();
       } elsif (m/^[ \t]*pushq/) {
-	  $size += 8;
+         $size += 8;
       } elsif (m/^[ \t]*subq[\t *]\$([0-9]*),[ \t]*%rsp$/) {
-          my $val = $1;
-          $val = oct($val) if $val =~ /^0/;
-          $size += $val;
-          emit_code();
+         my $val = $1;
+         $val = oct($val) if $val =~ /^0/;
+         $size += $val;
+         emit_code();
       }
   } elsif (m/^[ \t]*.cfi_startproc$/) {
       print $_;