From b92d1eef0226a667397e1e0b5a4f6f628137afe0 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 9 Nov 2008 22:12:59 +0100
Subject: [PATCH] Configure: Use `die "...\n"' for all error messages.

This way, Perl does not clutter the output with the location of the
error in the source file, which is usually completely useless.
---
 free/libs/configure                             | 2 +-
 free/libs/examples/external-ucw-build/configure | 6 +++---
 free/libs/examples/internal/configure           | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/free/libs/configure b/free/libs/configure
index 000d71a8..db17e900 100755
--- a/free/libs/configure
+++ b/free/libs/configure
@@ -14,7 +14,7 @@ BEGIN {
 		} elsif ($0 =~ m@^(.*)/configure$@ && -f "$1/$pkgfile") {
 			$srcdir=$1;
 		} else {
-			die "Don't know how to find myself. Please set SRCDIR manually.";
+			die "Don't know how to find myself. Please set SRCDIR manually.\n";
 		}
 	}
 }
diff --git a/free/libs/examples/external-ucw-build/configure b/free/libs/examples/external-ucw-build/configure
index 8214aa94..ec4b279e 100755
--- a/free/libs/examples/external-ucw-build/configure
+++ b/free/libs/examples/external-ucw-build/configure
@@ -15,15 +15,15 @@ BEGIN {
 		} elsif ($0 =~ m@^(.*)/configure$@ && -f "$1/$pkgfile") {
 			$srcdir=$1;
 		} else {
-			die "Don't know how to find myself. Please set SRCDIR manually.";
+			die "Don't know how to find myself. Please set SRCDIR manually.\n";
 		}
 	}
 	# Ask pkg-config if libucw is installed and find its configure modules
 	`pkg-config libucw --atleast-version=3.13`;
-	!$? or die "Package `libucw' (version 3.13 or newer) not found. Is PKG_CONFIG_PATH set properly?";
+	!$? or die "Package `libucw' (version 3.13 or newer) not found. Is PKG_CONFIG_PATH set properly?\n";
 	$libdir=`pkg-config libucw --variable=perl_modules_dir`;
 	chomp $libdir;
-	die "Unable to find the libucw configure system" if $? || not defined $libdir;
+	die "Unable to find the libucw configure system\n" if $? || not defined $libdir;
 }
 use lib $libdir;
 use UCW::Configure;
diff --git a/free/libs/examples/internal/configure b/free/libs/examples/internal/configure
index 32d61781..d914789a 100755
--- a/free/libs/examples/internal/configure
+++ b/free/libs/examples/internal/configure
@@ -14,7 +14,7 @@ BEGIN {
 		} elsif ($0 =~ m@^(.*)/configure$@ && -f "$1/$pkgfile") {
 			$srcdir=$1;
 		} else {
-			die "Don't know how to find myself. Please set SRCDIR manually.";
+			die "Don't know how to find myself. Please set SRCDIR manually.\n";
 		}
 	}
 }
-- 
2.39.2