Zabbix
Public
Source
111
111
my $help = 0;112
112
113
113
GetOptions(114
114
'help|?' => \$help,115
115
'xml:s' => \$xml,116
116
'suite=s' => \$target_suite117
117
) or pod2usage(2);118
118
119
119
pod2usage(-verbose => 2, -noperldoc => 1) if ($help);120
120
121
-
my $iter = path(".")->iterator({121
+
my $iter = path(dirname(Cwd::abs_path(__FILE__)))->iterator({122
122
'recurse' => 1,123
123
'follow_symlinks' => 0124
124
});125
125
126
126
my @test_suites = ();127
127
128
128
while (my $path = $iter->())129
129
{130
130
next unless ($path->is_file());131
131
next unless ($path->basename =~ qr/^(.+)\.yaml$/);