fix perlcritic warning about regex usage

ikluft · May 13, 2024 · 0700642 · 0700642
1 parent a73b3d5
commit 0700642
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 = split( /,/, join( ',', @{$opts_ref->{get}}));
+            @fields = split( /,/x, join( ',', @{$opts_ref->{get}}));
         } else {
             croak "incorrect data type from --get parameter"
         }