FATAL warnings considered harmful
This commit is contained in:
		| @@ -1,7 +1,7 @@ | ||||
| #!/usr/bin/env perl | ||||
|  | ||||
| use strict; | ||||
| use warnings FATAL => 'all'; | ||||
| use warnings; | ||||
|  | ||||
| our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); | ||||
|  | ||||
|   | ||||
| @@ -1,5 +1,8 @@ | ||||
| #!/usr/bin/env perl | ||||
|  | ||||
| use strict; | ||||
| use warnings; | ||||
|  | ||||
| use FindBin; | ||||
| FindBin::again(); | ||||
| use Path::Class 'dir'; | ||||
|   | ||||
| @@ -1,7 +1,7 @@ | ||||
| #!/usr/bin/env perl | ||||
|  | ||||
| use strict; | ||||
| use warnings FATAL => 'all'; | ||||
| use warnings; | ||||
|  | ||||
| our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME}); | ||||
|  | ||||
|   | ||||
| @@ -1,7 +1,7 @@ | ||||
| #!/usr/bin/env perl | ||||
|  | ||||
| use strict; | ||||
| use warnings FATAL => 'all'; | ||||
| use warnings; | ||||
|  | ||||
| BEGIN { | ||||
|   if ($ENV{_} and $ENV{_} =~ m/netdisco-web-fg$/) { | ||||
|   | ||||
		Reference in New Issue
	
	Block a user