From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 9 Feb 2006 12:38:35 +0000 (+0000)
Subject: Skip new chdir warning test if fchdir is not available
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8aee01e7619816b4465ed0b436a44670c5050455;p=p5sagit%2Fp5-mst-13.2.git

Skip new chdir warning test if fchdir is not available

p4raw-id: //depot/perl@27135
---

diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
index 4149117..a358819 100644
--- a/t/lib/warnings/pp_sys
+++ b/t/lib/warnings/pp_sys
@@ -458,6 +458,16 @@ select $x, undef, undef, undef;
 EXPECT
 Non-string passed as bitmask at - line 4.
 ########
+use Config;
+BEGIN {
+    if (!$Config{d_fchdir}) {
+	print <<EOM;
+SKIPPED
+# fchdir not present
+EOM
+	exit;
+    }
+}
 opendir FOO, '.'; closedir FOO;
 open BAR, '.'; close BAR;
 opendir $dh, '.'; closedir $dh;
@@ -472,7 +482,7 @@ chdir BAR;
 chdir $dh;
 chdir $fh;
 EXPECT
-chdir() on unopened filehandle FOO at - line 10.
-chdir() on closed filehandle BAR at - line 11.
-chdir() on unopened filehandle $dh at - line 12.
-chdir() on closed filehandle $fh at - line 13.
+chdir() on unopened filehandle FOO at - line 20.
+chdir() on closed filehandle BAR at - line 21.
+chdir() on unopened filehandle $dh at - line 22.
+chdir() on closed filehandle $fh at - line 23.