PG-603: Fix/Update String::Util module in TAP test perl. (#373)

Removed use of String::Util perl module from TAP test cases, and now using
Text::Trim module instead, as that is more stable. Also removed the
Data::Str2Num perl module as it was not needed any more.

.github/workflows/code-coverage-test.yml

@@ -29,8 +29,7 @@ jobs:
            /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Create pgsql dir
         run: mkdir -p /opt/pgsql

.github/workflows/postgresql-12-build.yml

@@ -28,8 +28,7 @@ jobs:
            /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Create pgsql dir
         run: mkdir -p /opt/pgsql

.github/workflows/postgresql-12-pgdg-package.yml

@@ -24,8 +24,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install PG Distribution Postgresql 12
         run: |

.github/workflows/postgresql-12-ppg-package.yml

@@ -27,8 +27,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install percona-release script
         run: |

.github/workflows/postgresql-13-build.yml

@@ -28,8 +28,7 @@ jobs:
            /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Create pgsql dir
         run: mkdir -p /opt/pgsql

.github/workflows/postgresql-13-pgdg-package.yml

@@ -24,8 +24,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install PG Distribution Postgresql 13
         run: |

.github/workflows/postgresql-13-ppg-package.yml

@@ -24,8 +24,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install percona-release script
         run: |

.github/workflows/postgresql-14-build.yml

@@ -29,8 +29,7 @@ jobs:
            /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Create pgsql dir
         run: mkdir -p /opt/pgsql

.github/workflows/postgresql-14-pgdg-package.yml

@@ -23,8 +23,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install PG Distribution Postgresql 14
         run: |

.github/workflows/postgresql-14-ppg-package.yml

@@ -24,8 +24,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install percona-release script
         run: |

.github/workflows/postgresql-15-build.yml

@@ -29,8 +29,7 @@ jobs:
            /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Create pgsql dir
         run: mkdir -p /opt/pgsql

.github/workflows/postgresql-15-pgdg-package.yml

@@ -23,8 +23,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install PG Distribution Postgresql 15
         run: |

.github/workflows/postgresql-15-ppg-package.yml

@@ -24,8 +24,7 @@ jobs:
             /etc/postgresql
           sudo rm -f /usr/bin/pg_config
           sudo /usr/bin/perl -MCPAN -e 'install IPC::RUN'
-          sudo /usr/bin/perl -MCPAN -e 'install String::Util'
+          sudo /usr/bin/perl -MCPAN -e 'install Text::Trim'
-          sudo /usr/bin/perl -MCPAN -e 'install Data::Str2Num'
 
       - name: Install percona-release script
         run: |

t/001_settings_default.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/002_settings_pgsm_track_planning.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/003_settings_pgms_extract_comments.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/004_settings_pgsm_track.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/005_settings_pgsm_enable_query_plan.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/006_settings_pgsm_overflow_target.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/007_settings_pgsm_query_shared_buffer.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/008_settings_pgsm_histogram_buckets.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/009_settings_pgsm_histogram_max.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/010_settings_pgsm_histogram_min.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/011_settings_pgsm_bucket_time.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/012_settings_pgsm_max_buckets.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/013_settings_pgsm_normalized_query.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/014_settings_pgsm_track_utility.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/015_settings_pgsm_query_max_len.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/016_settings_pgsm_max.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/017_execution_stats.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/018_column_names.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/019_insufficient_shared_space.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/020_buffer_overflow.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/021_misc_1.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/022_misc_2.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/024_check_timings.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/025_compare_pgss.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/026_shared_blocks.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/027_local_blocks.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/028_temp_block.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/029_bucket_done.pl

@@ -5,7 +5,6 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/030_histogram.pl

@@ -5,7 +5,7 @@ use warnings;
 use File::Basename;
 use File::Compare;
 use File::Copy;
-use String::Util qw(trim);
+use Text::Trim qw(trim);
 use Test::More;
 use lib 't';
 use pgsm;

t/pgsm.pm

@@ -1,6 +1,5 @@
 package PGSM;
 
-use String::Util qw(trim);
 use File::Basename;
 use File::Compare;
 use Test::More;