fixed encoding option of file opening

diff --git a/botm_common.pm b/botm_common.pm
index 0e8c405ffcef37ae42f39b96da0006e4ab15895f..0277cab838a0c3564c51fade6a44f9b4c510344a 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -25,7 +25,7 @@ use Encode ('encode', 'decode');
 
 use Exporter;
 
-our $VERSION     = '1.0.11';
+our $VERSION     = '1.0.12';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -193,7 +193,7 @@ sub read_data_file {
                }
        }
        else {
-               unless (open ($fh, "<:$encoding", encode('locale_fs', $file))) {
+               unless (open ($fh, "<:encoding($encoding)", encode('locale_fs', $file))) {
                        return %data;
                }
        }
@@ -282,7 +282,7 @@ sub write_data_file {
                }
        }
        else {
-               unless (open ($fh, ">:$encoding", encode('locale_fs', $file))) {
+               unless (open ($fh, ">:encoding($encoding)", encode('locale_fs', $file))) {
                        return 0;
                }
        }