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.

diff --git a/free/libs/configure b/free/libs/configure
index 000d71a8cc23c009d2be54b630ff23b7fd9427d1..db17e9003eca97864d1bafb9884414bdc9d74950 100755 (executable)
--- a/free/libs/configure
+++ b/free/libs/configure
@@ -14,7 +14,7 @@ BEGIN {
                } elsif ($0 =~ m@^(.*)/configure$@ && -f "$1/$pkgfile") {
                        $srcdir=$1;
                } else {
                } 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 8214aa94cca385cc932046f84d4a73f9f1266166..ec4b279e7fbbed3f46fbdcac76280994efa11605 100755 (executable)
--- 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 {
                } 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`;
                }
        }
        # 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;
        $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;
 }
 use lib $libdir;
 use UCW::Configure;

diff --git a/free/libs/examples/internal/configure b/free/libs/examples/internal/configure
index 32d61781ebc04cbb3e43fb1a253361da779ed173..d914789a288635840adda6253b2eeb6e8cdf84a3 100755 (executable)
--- 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 {
                } 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";

                }
        }
 }
                }
        }
 }