diff options
author | Simon McQueen <simon.mcqueen@microfocus.com> | 2022-08-31 10:52:06 +0100 |
---|---|---|
committer | Simon McQueen <simon.mcqueen@microfocus.com> | 2022-08-31 10:52:06 +0100 |
commit | 0a6a483c1c6e0be5f64d0e1c262e4145b297b722 (patch) | |
tree | 0a79be4f194b9defd9321658d8dc883dab92b082 | |
parent | b118da99434468f430bbded9be4f292e02bad6ca (diff) | |
download | ATCD-0a6a483c1c6e0be5f64d0e1c262e4145b297b722.tar.gz |
Fix a small part of commit e401f02ed7c5 which broke compilation
with Perl 5.8.8. This syntax seemingly post-dates that version.
-rw-r--r-- | ACE/bin/PerlACE/Process_Unix.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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"); |