From b3c3897cb4f5633a578e1869132550d305564686 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 20 Dec 2012 13:22:14 +0000
Subject: [PATCH] fix for older Perl which warns about a bug in File::Slurp

---
 Netdisco/bin/netdisco-daemon | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Netdisco/bin/netdisco-daemon b/Netdisco/bin/netdisco-daemon
index 2c5a6cdf..fde44ba4 100755
--- 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;