update Perl CLI to allow comma-delimited --get=xx,yy

ikluft · May 12, 2024 · 1de6770 · 1de6770
1 parent 6cd9b02
commit 1de6770
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/perl/bin/lon-tz.pl b/src/perl/bin/lon-tz.pl
@@ -138,7 +138,7 @@ sub do_tz_op
     my @fields;
     if ( exists $opts_ref->{get}) {
         if ( ref $opts_ref->{get} eq "ARRAY" ) {
-            @fields = @{$opts_ref->{get}};
+            @fields = split( /,/, join( ',', @{$opts_ref->{get}}));
         } else {
             croak "incorrect data type from --get parameter"
         }