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