use warnings instead of global -w flag

diff --git a/data/PVE/Cluster.pm b/data/PVE/Cluster.pm
index 5ccd07f68e46b9c4f1ce625970fc7190992c267d..b384a2c4289715898854a6efdb6a4ef20db05f8d 100644 (file)
--- a/data/PVE/Cluster.pm
+++ b/data/PVE/Cluster.pm
@@ -1,6 +1,7 @@
 package PVE::Cluster;
 
 use strict;
+use warnings;
 use POSIX qw(EEXIST);
 use File::stat qw();
 use Socket;

diff --git a/data/PVE/gen-datacenter-pod.pl b/data/PVE/gen-datacenter-pod.pl
index 06a341bb8ece7a76c17d90a6f368931705d35cb3..407ae2c5b6649e8c18f9c99828500304fc5b346e 100755 (executable)
--- a/data/PVE/gen-datacenter-pod.pl
+++ b/data/PVE/gen-datacenter-pod.pl
@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 package main;
 
 use strict;
+use warnings;
 use PVE::Tools;
 use PVE::Cluster;
 use PVE::PodParser;

diff --git a/data/PVE/pvecm b/data/PVE/pvecm
index 5a7074fda7b5ccb99458922e111ba76dc62ad4db..cbd891db44b9746c91433e6434fb9ab924bc807a 100755 (executable)
--- a/data/PVE/pvecm
+++ b/data/PVE/pvecm
@@ -1,5 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
 use strict;
+use warnings;
 use Getopt::Long;
 use Socket;
 use IO::File;