1package WgetFeature;
2
3use strict;
4use warnings;
5
6use WgetTest;
7
8our %skip_messages;
9require 'WgetFeature.cfg';
10
11sub import
12{
13    my ($class, $feature) = @_;
14
15    my $output = `$WgetTest::WGETPATH --version`;
16    my ($list) = $output =~ /^([\+\-]\S+(?:\s+[\+\-]\S+)+)/m;
17    my %have_features = map {
18        my $feature = $_;
19           $feature =~ s/^.//;
20          ($feature, /^\+/ ? 1 : 0);
21    } split /\s+/, $list;
22
23    unless ($have_features{$feature}) {
24        print $skip_messages{$feature}, "\n";
25        exit 2; # skip
26    }
27}
28
291;
30