From: Francois Gouget Subject: winetest: Prefer 'use warnings' to 'perl -w'. Message-Id: Date: Tue, 22 Jul 2014 16:07:29 +0200 (CEST) --- '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 # @@ -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