From: Jim Meyering <meyering@redhat.com>
Date: Fri, 28 Mar 2008 11:30:26 +0000 (+0100)
Subject: Perform explicit exit-nonzero if the embedded Perl script fails.
X-Git-Tag: v6.11~51
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=818dbee8dc1a50f6dbc1ba85f7f25a47ded09930;p=thirdparty%2Fcoreutils.git

Perform explicit exit-nonzero if the embedded Perl script fails.

* tests/misc/pwd-long: Add canonical '(exit $fail); exit $fail'.

Signed-off-by: Jim Meyering <meyering@redhat.com>
---

diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long
index d931d34627..37b552c4cb 100755
--- a/tests/misc/pwd-long
+++ b/tests/misc/pwd-long
@@ -1,4 +1,5 @@
 #!/bin/sh
+# -*- perl -*-
 # Ensure that pwd works even when run from a very deep directory.
 
 # Copyright (C) 2006-2008 Free Software Foundation, Inc.
@@ -112,3 +113,7 @@ if ($expected ne $actual)
     exit 1;
   }
 EOF
+
+fail=$?
+
+(exit $fail); exit $fail