From 44fbe59bfd7652a0975e601591df4a4b218da40d Mon Sep 17 00:00:00 2001 From: b Date: Mon, 12 Feb 2024 22:11:14 +0000 Subject: [PATCH] decoded PWD --- botm_common.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 { -- 2.30.2