decoded PWD

diff --git a/botm_common.pm b/botm_common.pm
index 57343421f835f62459e4e2726f740dc60e5bf820..18bde54359dbb3acfd59bc0d97d0f9aca8b00f06 100644 (file)
--- 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 {