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