From faf3764b69de142a9b0cc2aaaafb0323065b1c09 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Sun, 25 Feb 2018 16:15:45 +0100
Subject: [PATCH] perl-5.26.1-4: Add check for DISPLAY

Its annoying if we fail after 30 minutes because we don't have an X11
display for Tk. Add code to fail early.
---
 perl-5.26.1-4.build.sh | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perl-5.26.1-4.build.sh b/perl-5.26.1-4.build.sh
index f45a7c4..44193a1 100755
--- a/perl-5.26.1-4.build.sh
+++ b/perl-5.26.1-4.build.sh
@@ -33,6 +33,13 @@ mkdir -p $HOME
 
 exec </dev/null		# to many cpan modules might ask something
 
+# Tk test needs display
+#
+if [ -z "$DISPLAY" ]; then
+	echo "DISPLAY not set. Required for Tk tests." >&2
+	exit 1
+fi
+
 # If you hit errors and want to rerun from where you failed,
 # use "if false","fi" to avoid rebuilding everything before
 # the error.