Zabbix

my $help = 0;

​

GetOptions(

    'help|?' => \$help,

    'xml:s' => \$xml,

    'suite=s' => \$target_suite

) or pod2usage(2);

​

pod2usage(-verbose => 2, -noperldoc => 1) if ($help);

​

    'recurse'       => 1,

    'follow_symlinks'   => 0

});

​

my @test_suites = ();

​

while (my $path = $iter->())

{

    next unless ($path->is_file());

    next unless ($path->basename =~ qr/^(.+)\.yaml$/);