Make all warnings fatal under when testing

[novaboot.git] / novaboot

diff --git a/novaboot b/novaboot
index 4b9bceb0c3f74141a8e787a529f1ea9c49850923..e25ff2e9810576fd4591bf5226741abda9606d38 100755 (executable)
--- a/novaboot
+++ b/novaboot
@@ -15,6 +15,7 @@
 
 use strict;
 use warnings;
+use warnings (exists $ENV{NOVABOOT_TEST} ? (FATAL => 'all') : ());
 use Getopt::Long qw(GetOptionsFromString);
 use Pod::Usage;
 use File::Basename;