From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
UTILITY:
{
diag 'Testing Alien::patchelf version: ' . Alien::patchelf->version;
my ($result, $stderr, $exit) = Alien::patchelf->patchelf ("--help");
like ($stderr, qr{^syntax\:\s.*patchelf},
'Got expected first line from patchelf utility');
diag '';
diag ("\nUtility results:\n" . $result);
diag ($stderr) if $stderr;
diag "Exit code is $exit";
diag '';
}
done_testing();