fatal warnings

diff --git a/planetNaps.pl b/planetNaps.pl
index 8d8a384c337c1d1164a513917f45ce16682e26ca..91937fc2a7fd62be746a4d0702e334e1326821e5 100644 (file)
--- a/planetNaps.pl
+++ b/planetNaps.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 
 $ND::TEMPLATE->param(TITLE => 'List planet naps');
 

diff --git a/resources.pl b/resources.pl
index 486cc13eab8cb48d21606e9a7d5d1a11832b89da..363d25e16910d345b96f8dfcd3db98000fcc06ea 100644 (file)
--- a/resources.pl
+++ b/resources.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;