From 7e7dc29a165d0d20820d5d7dca1919f8605a1eeb Mon Sep 17 00:00:00 2001
From: Will Budic <vilijanac@gmail.com>
Date: Thu, 25 Sep 2025 11:35:54 +1000
Subject: [PATCH] upd.

---
 ISC_License.md                    |  4 ++--
 tests/testAppSettings.pl          |  4 ++--
 tests/testSQLPostgres_on_elite.pl | 12 ------------
 3 files changed, 4 insertions(+), 16 deletions(-)

diff --git a/ISC_License.md b/ISC_License.md
index ce5f5fc..160e8be 100644
--- a/ISC_License.md
+++ b/ISC_License.md
@@ -1,4 +1,4 @@
-ISC License
+#ISC License
 
 Copyright (c) 2023 Will Budić
 
@@ -17,4 +17,4 @@ PERFORMANCE OF THIS SOFTWARE.
 https://choosealicense.com/licenses/isc/
 
 
-[EContactHash: 990MWWLWM8C2MI8K](https://github.com/wbudic/PerlCNF/blob/master/EContactHash.md)
+[EContactHash: 990MWWLWM8C2MI8K](EContactHash.md)
diff --git a/tests/testAppSettings.pl b/tests/testAppSettings.pl
index 07eb5c3..2058208 100644
--- a/tests/testAppSettings.pl
+++ b/tests/testAppSettings.pl
@@ -35,14 +35,14 @@ use Syntax::Keyword::Try; try {
         my $config = $app_settings->global();
         $test -> isDefined("\$config global",$config);
 
-        my $app_name =  $app_settings->{APP_NAME};  # First Priority if exists and not overwriten.
+        my $app_name =  $app_settings->{APP_NAME};  # First Priority if exists and not overwritten.
         $test -> isDefined("\$app_name",$app_name);
 
     #
     $test->nextCase();
     #
 
-    $test->case("App settings values as per priorities by apperance in script or set as default.");
+    $test->case("App settings values as per priorities by appearance in script or set as default.");
 
     #
     my $gl__name  = $app_settings->global()->{APP_NAME}; #A constant. Second Priority if first doesn't exists.
diff --git a/tests/testSQLPostgres_on_elite.pl b/tests/testSQLPostgres_on_elite.pl
index ae9133c..011c952 100644
--- a/tests/testSQLPostgres_on_elite.pl
+++ b/tests/testSQLPostgres_on_elite.pl
@@ -30,18 +30,6 @@ try{
 
    #encode/decode text quotes and codes
 
-sub encodeQuotes{
-   my $ret = shift; $ret =~ s/\s*$//g; 
-   $ret =~ s/\"/\"\"/g; $ret =~ s/\'/\'\'/g; $ret =~ s/\\n/%/g; 
-   $ret =~ s/\\n/\\\\n/g;   
-   return $ret
-}
-sub decodeQuotes{
-   my $ret = shift; 
-   $ret =~ s/\"\"/\"/g; $ret =~ s/\'\'/\'/g; #$ret =~ s/\\\\/\\/g;
-   $ret =~ s/\\n/%/g;
-   return $ret
-}
 
    die $test->failed() if not $cnf = CNFParser->new(undef,{'%LOG'=>{console=>1}});
        $test->case("Passed new instance CNFParser.");
-- 
2.34.1