Consistent perl version use

Tux · Tux · commit 21926a3048de · 2023-01-03T13:44:40.000+01:00
diff --git a/err-csv/check.pl b/err-csv/check.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 
 our $VERSION = "0.01 - 20200130";
diff --git a/examples/csv-check b/examples/csv-check
@@ -5,7 +5,7 @@
 
 # This code requires the defined-or feature and PerlIO
 
-use 5.12.0;
+use 5.012000;
 use warnings;
 
 use Data::Peek;
diff --git a/examples/csv-split b/examples/csv-split
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.0;
+use 5.014000;
 use warnings;
 
 our $VERSION = "0.01 - 20201021";
diff --git a/examples/csv2xls b/examples/csv2xls
@@ -3,7 +3,7 @@
 # csv2xls: Convert csv to xls
 #	   (m)'20 [25 Mar 2020] Copyright H.M.Brand 2007-2023
 
-use 5.12.0;
+use 5.012000;
 use warnings;
 
 our $VERSION = "1.80";
diff --git a/sandbox/auto-utf8.pl b/sandbox/auto-utf8.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.014;
+use 5.014000;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/basbl-1.pl b/sandbox/basbl-1.pl
@@ -1,5 +1,5 @@
 #!/pro/bin/perl
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/buftest.pl b/sandbox/buftest.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.016;
+use 5.016000;
 use warnings;
 use autodie;
 
diff --git a/sandbox/buftest2.pl b/sandbox/buftest2.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.016;
+use 5.016000;
 use warnings;
 
 use lib qw( blib/lib blib/arch );
diff --git a/sandbox/count.pl b/sandbox/count.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use CSV;
diff --git a/sandbox/doc-bench-speed.pl b/sandbox/doc-bench-speed.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.016;
+use 5.016000;
 use warnings;
 use Benchmark qw( cmpthese );
 
diff --git a/sandbox/ebcdic.pl b/sandbox/ebcdic.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/esc_null.pl b/sandbox/esc_null.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/issue#31.pl b/sandbox/issue#31.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 
 our $VERSION = "0.01 - 20200912";
diff --git a/sandbox/issue19.pl b/sandbox/issue19.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.16.2;
+use 5.016002;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/issue7.pl b/sandbox/issue7.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Text::CSV_XS qw (csv );
diff --git a/sandbox/issue_csv_27.pl b/sandbox/issue_csv_27.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/issue_csv_32.pl b/sandbox/issue_csv_32.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/issuepp48.pl b/sandbox/issuepp48.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/la.pl b/sandbox/la.pl
@@ -1,6 +1,6 @@
 #/pro/bin/perl
 
-use 5.12.1;
+use 5.012001;
 use warnings;
 
 use Test::More;
diff --git a/sandbox/memcheck-summary.pl b/sandbox/memcheck-summary.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/newspeed.pl b/sandbox/newspeed.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.1;
+use 5.014001;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/pm-1192242.pl b/sandbox/pm-1192242.pl
@@ -2,7 +2,7 @@
 
 # Read the export from Thumbs Plus including keywords from filename given.
 
-use 5.18.2;	# 5.12 or later to get "unicode_strings" feature
+use 5.018002;	# 5.12 or later to get "unicode_strings" feature
 use utf8;	# so literals and identifiers can be in UTF-8
 use warnings  qw(FATAL utf8);    # fatalize encoding glitches
 use Data::Peek;	# debug
diff --git a/sandbox/pm-1192449.pl b/sandbox/pm-1192449.pl
@@ -3,7 +3,7 @@
 # Read the export from Thumbs Plus including keywords from filename given. Make a useful
 # in-memory data structure and then store that in some useful format (JSON?).
 
-use 5.18.2;	# or later to get "unicode_strings" feature
+use 5.018002;	# or later to get "unicode_strings" feature
 use warnings  qw(FATAL utf8);	# fatalize encoding glitches
 use utf8;	# so literals and identifiers can be in UTF-8
 use open      qw(:std :utf8);	# undeclared streams in UTF-8
diff --git a/sandbox/pm-1192516.pl b/sandbox/pm-1192516.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/pm-la-1.pl b/sandbox/pm-la-1.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/pm1226189.pl b/sandbox/pm1226189.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.1;
+use 5.014001;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/pm1227312.pl b/sandbox/pm1227312.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.1;
+use 5.014001;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/pm1231244.pl b/sandbox/pm1231244.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 
 our $VERSION = "0.01 - 20190314";
diff --git a/sandbox/print.pl b/sandbox/print.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.1;
+use 5.014001;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/rt100676.pl b/sandbox/rt100676.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use autodie;
diff --git a/sandbox/rt113279.pl b/sandbox/rt113279.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/rt115954.pl b/sandbox/rt115954.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 use Text::CSV_XS;
 
diff --git a/sandbox/rt116085.pl b/sandbox/rt116085.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/rt117495.pl b/sandbox/rt117495.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Test::More;
diff --git a/sandbox/rt119827.pl b/sandbox/rt119827.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 use Text::CSV_XS;
 my $csv = Text::CSV_XS->new ({binary => 1, auto_diag => 1, eol => $/});
diff --git a/sandbox/rt120655.pl b/sandbox/rt120655.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 use Text::CSV_XS;
 
diff --git a/sandbox/rt121350.pl b/sandbox/rt121350.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.1;
+use 5.018001;
 use warnings;
 use Text::CSV_XS;
 
diff --git a/sandbox/rt121576.pl b/sandbox/rt121576.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.12.2;
+use 5.012002;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/rt122764.pl b/sandbox/rt122764.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use Data::Peek;
 use Text::CSV_XS;
 
diff --git a/sandbox/rt123147.pl b/sandbox/rt123147.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use CSV;
diff --git a/sandbox/rt123320.pl b/sandbox/rt123320.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use Data::Peek;
diff --git a/sandbox/rt130579.pl b/sandbox/rt130579.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.3;
+use 5.018003;
 use warnings;
 
 use Text::CSV_XS;
diff --git a/sandbox/rt131696.pl b/sandbox/rt131696.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 
 our $VERSION = "0.01 - 20200523";
diff --git a/sandbox/rt132344.pl b/sandbox/rt132344.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.18.2;
+use 5.018002;
 use warnings;
 
 use JSON;
diff --git a/sandbox/rt80680.pl b/sandbox/rt80680.pl
@@ -1,6 +1,6 @@
 #!/pro/.bin/perl
 
-use 5.16.0;
+use 5.016000;
 use warnings;
 use Text::CSV_XS;
 
diff --git a/sandbox/rt86155.pl b/sandbox/rt86155.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.016;
+use 5.016000;
 use warnings;
 
 use Test::More;
diff --git a/sandbox/rt86217.pl b/sandbox/rt86217.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.018;
+use 5.018000;
 use warnings;
 
 use Clone;
diff --git a/sandbox/sort.pl b/sandbox/sort.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.16.2;
+use 5.016002;
 use warnings;
 
 use Text::CSV_XS qw( csv );
diff --git a/sandbox/stacked-enc.pl b/sandbox/stacked-enc.pl
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-use 5.14.2;
+use 5.014002;
 use warnings;
 use blib;
 
diff --git a/sandbox/used-by.pl b/sandbox/used-by.pl
diff --git a/sandbox/validation-TS.pl b/sandbox/validation-TS.pl
