winetest: Prefer 'use warnings' to 'perl -w'.

Francois Gouget fgouget at codeweavers.com
Tue Jul 22 09:07:29 CDT 2014


---

'perl -w' can cause errors in some environments.

 winetest/build-index | 3 ++-
 winetest/dissect     | 4 +++-
 winetest/gather      | 3 ++-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/winetest/build-index b/winetest/build-index
index 186a2de..900b144 100755
--- a/winetest/build-index
+++ b/winetest/build-index
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright 2008 Alexandre Julliard <julliard at winehq.org>
 #
@@ -20,6 +20,7 @@
 # WineTest result data.
 
 use strict;
+use warnings;
 use open ':utf8';
 use CGI qw(:standard);
 
diff --git a/winetest/dissect b/winetest/dissect
index a243a23..bbd156b 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright (C) 2004 Ferenc Wagner
 # Copyright (C) 2008 Alexandre Julliard
@@ -32,6 +32,8 @@
 #       3 - fatal error, something went utterly wrong
 
 use strict;
+use warnings;
+
 use open ':utf8';
 use CGI qw(:standard);
 charset("utf-8");
diff --git a/winetest/gather b/winetest/gather
index 5023ac6..f469fb1 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright (C) 2004 Ferenc Wagner
 #
@@ -31,6 +31,7 @@
 #       3 - fatal error, something went utterly wrong
 
 use strict;
+use warnings;
 use CGI qw(:standard);
 charset("utf-8");
 
-- 
2.0.1




More information about the wine-patches mailing list