Update ARGV check

The current ARGV check 'defined(@array)' is deprecated in Perl; replace this with '@argv'. When the array is referenced in a scalar context (e.g. if(@argv)), the expression will evaluate to the length of the array, which is perhaps (I mean, who reallys knows, it's Perl) a safer way to check for args anyway. Signed-off-by: James Dinan <[email protected]>
openshmem-org · Mar 13, 2018 · 24a07c5 · 24a07c5
1 parent 3d04f27
commit 24a07c5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/common/testrunner.pl b/common/testrunner.pl
@@ -97,7 +97,7 @@
 # If arguments were specified on the CLI, use those as a filter for
 # which tests to run.  Abort if a test was specified for which we do
 # not have a configuration.
-if (defined(@ARGV)) {
+if (@ARGV) {
     my $tests_to_run;
     foreach my $arg (@ARGV) {
         my $found = 0;