From b518b5a88cf7556734026362f9f6ed41614c3dec Mon Sep 17 00:00:00 2001
From: Yigit Sever
Date: Tue, 17 Sep 2019 21:56:38 +0300
Subject: Bug fix

---
 scripts/train_dic_creator.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts')

diff --git a/scripts/train_dic_creator.pl b/scripts/train_dic_creator.pl
index 0a9f931..e7b1253 100755
--- a/scripts/train_dic_creator.pl
+++ b/scripts/train_dic_creator.pl
@@ -58,7 +58,7 @@ if (-e "$dict_dir/$target_lang-$source_lang.dic") {
     $file_name = "$source_lang-$target_lang.dic";
 }
 
-my $file_path = $dict_dir . $file_name;
+my $file_path = "${dict_dir}/${file_name}";
 
 local @ARGV = $file_path;
 local $^I = '.bak';
@@ -106,8 +106,8 @@ my $size = $cutoff / 2;
 my @head = @result[0..$size - 1];
 my @tail = @result[-$size..-1];
 
-my $train_file_name = "$dict_dir/$source_lang_$target_lang.train';
-my $test_file_name  = "$dict_dir/$source_lang_$target_lang.test';
+my $train_file_name = "${dict_dir}/${source_lang}_${target_lang}.train";
+my $test_file_name  = "${dict_dir}/${source_lang}_${target_lang}.test";
 
 open my $train_fh, '>', $train_file_name;
 open my $test_fh, '>', $test_file_name;
-- 
cgit v1.2.3-70-g09d2