9 require 'WgetFeature.cfg';
13 my ($class, $feature) = @_;
15 my $output = `$WgetTest::WGETPATH --version`;
16 my ($list) = $output =~ /^([\+\-]\S+(?:\s+[\+\-]\S+)+)/m;
17 my %have_features = map {
20 ($feature, /^\+/ ? 1 : 0);
23 unless ($have_features{$feature}) {
24 print $skip_messages{$feature}, "\n";