135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FATAL warnings considered harmful

Browse Source
This commit is contained in:
Oliver Gorwits
2014-03-11 14:08:03 +00:00
parent f0b4cc3580
commit 58ffd7a53a
21 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Netdisco/Changes
View File

@@ -14,6 +14,7 @@
[BUG FIXES]
* Suggest installation of perl-core RPM (arguably Red Hat's bug not ours!)
* FATAL warnings considered harmful
2.024004 - 2014-03-04

2
Netdisco/bin/netdisco-daemon
View File

@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});

3
Netdisco/bin/netdisco-daemon-fg
View File

@@ -1,5 +1,8 @@
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
FindBin::again();
use Path::Class 'dir';

2
Netdisco/bin/netdisco-web
View File

@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use warnings;
our $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});

2
Netdisco/bin/netdisco-web-fg
View File

@@ -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$/) {

2
Netdisco/lib/App/Netdisco.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco;
use strict;
use warnings FATAL => 'all';
use warnings;
use 5.010_000;
our $VERSION = '2.024004';

2
Netdisco/lib/App/Netdisco/DB/ExplicitLocking.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco::DB::ExplicitLocking;
use strict;
use warnings FATAL => 'all';
use warnings;
our %lock_modes;

2
Netdisco/lib/App/Netdisco/DB/ResultSet/Admin.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::Admin;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/Device.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::Device;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
use NetAddr::IP::Lite ':lower';
=head1 ADDITIONAL METHODS

2
Netdisco/lib/App/Netdisco/DB/ResultSet/DeviceModule.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::DeviceModule;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
=head1 ADDITIONAL METHODS

2
Netdisco/lib/App/Netdisco/DB/ResultSet/DevicePort.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::DevicePort;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/DevicePortLog.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::DevicePortLog;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/DevicePortSsid.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::DevicePortSsid;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(
qw/

2
Netdisco/lib/App/Netdisco/DB/ResultSet/Node.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::Node;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/NodeIp.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::NodeIp;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/NodeNbt.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::NodeNbt;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/NodeWireless.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::NodeWireless;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/DB/ResultSet/Subnet.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::DB::ResultSet::Subnet;
use base 'App::Netdisco::DB::ResultSet';
use strict;
use warnings FATAL => 'all';
use warnings;
__PACKAGE__->load_components(qw/
+App::Netdisco::DB::ExplicitLocking

2
Netdisco/lib/App/Netdisco/Environment.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco::Environment;
use strict;
use warnings FATAL => 'all';
use warnings;
use File::ShareDir 'dist_dir';
use Path::Class;

2
Netdisco/lib/App/Netdisco/Util/DNS.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco::Util::DNS;
use strict;
use warnings FATAL => 'all';
use warnings;
use Dancer ':script';
use Net::DNS;

2
Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco::Web::Auth::Provider::DBIC;
use strict;
use warnings FATAL => 'all';
use warnings;
use base 'Dancer::Plugin::Auth::Extensible::Provider::Base';