From 818dbee8dc1a50f6dbc1ba85f7f25a47ded09930 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Fri, 28 Mar 2008 12:30:26 +0100
Subject: 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>
---
 tests/misc/pwd-long | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests')

diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long
index d931d3462..37b552c4c 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
-- 
cgit v1.2.3-70-g09d2