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

versions of perl can handle the script.

MERGE TO STABLE

git-svn-id: svn://svn.valgrind.org/valgrind/branches/VALGRIND_2_2_0_BRANCH@2902

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 674d16d215abe4875c10b85202d23576f3907275..160020716032bf2ca7dec51fb0745698c28f7060 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 = "";