- if (open CURL, '-|', 'curl', '--version') {
- if (defined(my $line = readline CURL)) {
- $have_curl = 1 if $line =~ /^curl /;
- }
- close CURL;
- }
- if (open ARIA2C, '-|', 'aria2c', '--version') {
- if (defined(my $line = readline ARIA2C)) {
- $have_aria2c = 1 if $line =~ /^aria2 /;
- }
- close ARIA2C;
- }