reformating

wkt1.pl

@@ -119,7 +119,7 @@ unless (-d $out_dir)
   }
 
   # item list
-my $fnm_items= $data_dir . "/items.csv";
+  my $fnm_items= $data_dir . '/items.csv';
 
   local *FO_ITEMS;
   open (FO_ITEMS, '>:utf8', $fnm_items) or die "can't write to [$fnm_items]";
@@ -244,9 +244,9 @@ LINE: while (1)
       if ($debug > 1 || $debug_item)
       {
         print "="x72, "\n";
-      print "frame: ", Dumper(\%frame);
-      print "text: ", Dumper(\@text);
-      print "lines: ", Dumper (\@lines);
+        print __LINE__, " frame: ", Dumper(\%frame);
+        print __LINE__, " text: ", Dumper(\@text);
+        print __LINE__, " lines: ", Dumper (\@lines);
         print "="x72, "\n";
 
         $debug_item= 0;