diff options
author | Brian Fraser <fraserbn@gmail.com> | 2013-05-16 06:34:17 -0300 |
---|---|---|
committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-18 12:15:13 -0300 |
commit | bc5c48ae97013bb36885d263ec77cafe7d5f45d8 (patch) | |
tree | 48181ff91542f18ab5f4d65b23752d8db3d0e2c4 | |
parent | 18b6b0bfecdd30cc7c16a595c15f9b1a6a47ba4c (diff) | |
download | perl-bc5c48ae97013bb36885d263ec77cafe7d5f45d8.tar.gz |
t/op/getpid.t: Silence undef warnings if getconf doesn't exist.
If a platform has getppid() but not getconf and we're building a
threaded perl, this file would've shown undef warnings, although
no tests were affected.
-rw-r--r-- | t/op/getpid.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/getpid.t b/t/op/getpid.t index ac1f8bb722..cc3085ae51 100644 --- a/t/op/getpid.t +++ b/t/op/getpid.t @@ -36,7 +36,7 @@ new threads( sub { ($pid2, $ppid2) = ($$, getppid()); } ) -> join(); # Newer linuxthreads from gnukfreebsd (0.11) does have POSIX thread # semantics, so include a version check # <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=675606> -my $thread_version = qx[getconf GNU_LIBPTHREAD_VERSION 2>&1]; +my $thread_version = qx[getconf GNU_LIBPTHREAD_VERSION 2>&1] // ''; chomp $thread_version; if ($^O =~ /^(?:gnukfreebsd|linux)$/ and $thread_version =~ /linuxthreads/ and |