Use -w instead of "use warnings" to enable warnings so that older

versions of perl can handle the script.

git-svn-id: svn://svn.valgrind.org/valgrind/trunk@2903

diff --git a/coregrind/gen_intercepts.pl b/coregrind/gen_intercepts.pl
index ef23d4e59aa3182811091cc5e342c065f2990c3f..d522908fa692b957033efb72df07cc203cfcddc5 100644 (file)
--- a/coregrind/gen_intercepts.pl
+++ b/coregrind/gen_intercepts.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 #  This file is part of Valgrind, an extensible x86 protected-mode
 #  emulator for monitoring program execution on x86-Unixes.
@@ -24,7 +24,6 @@
 #  The GNU General Public License is contained in the file COPYING.
 
 use strict;
-use warnings;
 
 while(<>) {
   if(/VG_INTERCEPT\s*\(\s*(.*?)\s*,\s*(.*?)\s*\)/) {

diff --git a/coregrind/gen_toolint.pl b/coregrind/gen_toolint.pl
index edd716de9a29e64e6c73800aace8037fe48e69f9..95f93c1bf8fe48fc5d9b978f78bad91610376eca 100644 (file)
--- a/coregrind/gen_toolint.pl
+++ b/coregrind/gen_toolint.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 #  This file is part of Valgrind, an extensible x86 protected-mode
 #  emulator for monitoring program execution on x86-Unixes.
@@ -24,7 +24,6 @@
 #  The GNU General Public License is contained in the file COPYING.
 
 use strict;
-use warnings;
 
 my $output = shift @ARGV;
 my $indent = "";