use warnings everywhere.

[pve-common.git] / data / PVE / Exception.pm

diff --git a/data/PVE/Exception.pm b/data/PVE/Exception.pm
index 63b3843d5f94ea9859cb29f169b2d7ac7bcb9867..fa6b73a22733ee56ddc110fa79a23857434265d6 100644 (file)
--- a/data/PVE/Exception.pm
+++ b/data/PVE/Exception.pm
@@ -1,12 +1,11 @@
-#!/usr/bin/perl -w
+package PVE::Exception;
 
 # a way to add more information to exceptions (see man perlfunc (die))
 # use PVE::Exception qw(raise);
 # raise ("my error message", code => 400, errors => { param1 => "err1", ...} );
 
-package PVE::Exception;
-
 use strict;
+use warnings;
 use vars qw(@ISA @EXPORT_OK);
 require Exporter;
 use Storable qw(dclone);