From: b <rowerynaksiezycu@gmail.com>
Date: Mon, 12 Feb 2024 22:11:14 +0000 (+0000)
Subject: decoded PWD
X-Git-Tag: v1.1.2
X-Git-Url: http://bicyclesonthemoon.info/git-projects/?a=commitdiff_plain;h=refs%2Ftags%2Fv1.1.2;p=botm%2Fcommon-perl

decoded PWD
---

diff --git a/botm_common.pm b/botm_common.pm
index 5734342..18bde54 100644
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -26,7 +26,7 @@ use File::Copy;
 
 use Exporter;
 
-our $VERSION     = '1.1.1';
+our $VERSION     = '1.1.2';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -41,7 +41,7 @@ our @EXPORT_OK   = (
 	'html_entity_encode_dec', 'html_entity_encode_hex', 'html_entity_encode_name', 'html_entity_decode',
 	'join_path', 'dir_path', 'make_temp_path', 'make_id',
 	'system_encoded', 'exec_encoded',
-	'opendir_encoded', 'readdir_decoded',
+	'opendir_encoded', 'readdir_decoded', 'env_pwd_decoded',
 	'_x_encoded', 'stat_encoded',
 	'unlink_encoded', 'rename_encoded', 'copy_encoded',
 	'open_encoded'
@@ -181,6 +181,10 @@ sub readdir_decoded {
 	return decode('locale_fs', readdir $_[0]);
 }
 
+sub env_pwd_decoded {
+	return decode('locale_fs', $ENV{'PWD'});
+}
+
 # file
 
 sub _x_encoded {