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