From 0a6a483c1c6e0be5f64d0e1c262e4145b297b722 Mon Sep 17 00:00:00 2001 From: Simon McQueen Date: Wed, 31 Aug 2022 10:52:06 +0100 Subject: Fix a small part of commit e401f02ed7c5 which broke compilation with Perl 5.8.8. This syntax seemingly post-dates that version. --- ACE/bin/PerlACE/Process_Unix.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ACE/bin/PerlACE/Process_Unix.pm b/ACE/bin/PerlACE/Process_Unix.pm index 9a9a25e996c..79365970451 100644 --- a/ACE/bin/PerlACE/Process_Unix.pm +++ b/ACE/bin/PerlACE/Process_Unix.pm @@ -874,7 +874,11 @@ sub check_return_value ($) { my $self = shift; my $rc = shift; - my $opts = shift // {}; + my $opts = shift; + + if (! defined $opts) { + $opts = {}; + } # NSK OSS has a 32-bit waitpid() status my $is_NSK = ($^O eq "nonstop_kernel"); -- cgit v1.2.1