From 3e10dd93dcb711a5fa086f00e7ab123d83a6dd8e Mon Sep 17 00:00:00 2001
From: Michal Sojka <sojkam1@fel.cvut.cz>
Date: Sun, 15 May 2016 10:56:47 +0200
Subject: [PATCH] Suppress Expect warning: handle id(3) is not a tty...

---
 novaboot | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/novaboot b/novaboot
index 656ea84..38189bb 100755
--- a/novaboot
+++ b/novaboot
@@ -1222,7 +1222,10 @@ if ($interaction && defined $exp) {
 	#use Data::Dumper;
 	#print Dumper(\@expect_raw);
 	$exp->expect(undef, @expect_raw) if @expect_raw;
+
+	$^W = 0; # Suppress Expect warning: handle id(3) is not a tty. Not changing mode at /usr/share/perl5/Expect.pm line 393, <> line 8.
 	Expect::interconnect(@inputs) unless defined($exp->exitstatus);
+	$^W = 1;
     }
 }
 
-- 
2.39.2