Index: app/src/compiledic/compiledic
===================================================================
--- app/src/compiledic/compiledic	(revision c8e8fa8b5847f1531da80c5fbfce80f990b1b4c5)
+++ app/src/compiledic/compiledic	(revision e1942bef32aa49424c28a6a21a68f73a516d3fd8)
@@ -53,5 +53,4 @@
 #########################################################
 
-
 GetOptions("symbols=s" => \$symbols,
 	   "help|h" => \$help);
@@ -70,11 +69,9 @@
 }
 
-
-
 ##################################################
 
 -f $symbols or die("Symbol file not found.");
 
-@ARGV < 1   or die("Source dictionary not given.");
+@ARGV > 0   or die("Source dictionary not given.");
 
 my $file = shift;
@@ -89,8 +86,5 @@
 
 # Tworzymy katalog tymczasowy, gdzie wszystko bedzie umieszczane.
-$tmp_root = tempdir( CLEANUP => 1 );
-
-print "TMPROOT: $tmp_root\n";
-
+my $tmp_root = File::Temp::tempdir( CLEANUP => 1 );
 
 (undef, my $symfile) = File::Temp::tempfile( DIR => $tmp_root, SUFFIX => ".sym" );
@@ -109,6 +103,6 @@
 # Analiza pliku slownika
 
-print "preparing file...........................................\n";
-print "... sed section .....\n";
+print "preparing file...........................................";
+#print "... sed section .....\n";
 (undef, my $file_sed) = File::Temp::tempfile( DIR => $tmp_root, SUFFIX => ".sed" );
 `sed -r "s/([[:punct:]])/\[\\1\]/g" < $file > $file_sed`;
@@ -123,6 +117,6 @@
 open(IN, $file_sed);
 
-$lineCount = 0;
-$fileCount = 0;
+my $lineCount = 0;
+my $fileCount = 0;
 
 open(FILE, ">$tmp_root/slo_$fileCount");
@@ -147,9 +141,9 @@
 
 #32 kropki, fileCount plikow
-$filesPerDot = $fileCount/32;
-$files=$filesPerDot;
-$dots=0;
-
-for ($i=0; $i<=$fileCount; $i++) {
+my $filesPerDot = $fileCount/32;
+my $files=$filesPerDot;
+my $dots=0;
+
+for (my $i=0; $i<=$fileCount; $i++) {
 
     if ($files >= $filesPerDot) {
@@ -164,5 +158,5 @@
 }
 if ($dots < 32) {
-    for ($i=0; $i<32 - $dots; $i++) {
+    for (my $i=0; $i<32 - $dots; $i++) {
 	print ".";
     }
@@ -176,5 +170,5 @@
 
 #35 kropek...
-$ndots=33;
+my $ndots=33;
 $filesPerDot = $fileCount/$ndots;
 $files=$filesPerDot;
@@ -183,5 +177,5 @@
 copy("$tmp_root/slownik_0.fsm", "$tmp_root/slownik1.fsm");
 
-for ($i=1; $i<=$filecount; $i++) {
+for (my $i=1; $i<=$fileCount; $i++) {
 
     if ($files >= $filesPerDot) {
@@ -192,5 +186,5 @@
     $files++;
 
-    `fsmunion $tmp_root/slownik_$i slownik1.fsm > $tmp_file/slownik2.fsm`;
+    `fsmunion $tmp_root/slownik_$i slownik1.fsm > $tmp_root/slownik2.fsm`;
 
     move("$tmp_root/slownik2.fsm", "$tmp_root/slownik1.fsm") || die "Unable to move $tmp_root/slownik2.fsm!\n";
@@ -198,10 +192,10 @@
 
 if ($dots < $ndots) {
-    for ($i=0; $i<$ndots - $dots; $i++) {
-	print ".";
-    }
-}
-
-`fsmunion $tmp_root/* > $tmp_root/slownik1.fsm`;
+    for (my $i=0; $i<$ndots - $dots; $i++) {
+	print ".";
+    }
+}
+
+#`fsmunion $tmp_root/* > $tmp_root/slownik1.fsm`;
 
 print "OK\n";