fix for older Perl which warns about a bug in File::Slurp

2012-12-20 13:22:14 +00:00
parent e90b3c9d7a
commit b3c3897cb4
1 changed files with 6 additions and 0 deletions
--- a/Netdisco/bin/netdisco-daemon
+++ b/Netdisco/bin/netdisco-daemon
@@ -1,5 +1,11 @@
 #!/usr/bin/env perl

+# fix for older Perl which warns about a bug in File::Slurp
+BEGIN {
+  no warnings 'portable';
+  use File::Slurp;
+}
+
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 use App::Netdisco;