Update comments

diff --git a/bin/fcscs b/bin/fcscs
index f7752209145c213fcc9000b27ebe7ed2fd93dffb..b19ae6b8cc1a7e4c235de6fffb6c547292ce8e95 100755 (executable)
--- a/bin/fcscs
+++ b/bin/fcscs
@@ -506,7 +506,7 @@ sub run_in_background {
 
         # Necessary for GNU screen or it'll keep the window open until an
         # external command has run.
 
         # Necessary for GNU screen or it'll keep the window open until an
         # external command has run.

-        require File::Spec;
+        require File::Spec; # load here to speedup startup

         my $devnull = File::Spec->devnull();
         open STDIN,  '<', $devnull or die $!;
         open STDOUT, '>', $devnull or die $!;
         my $devnull = File::Spec->devnull();
         open STDIN,  '<', $devnull or die $!;
         open STDOUT, '>', $devnull or die $!;


@@ -590,7 +590,7 @@ sub select_match {
         $number = 1;
     }
 
         $number = 1;
     }
 

-    $screen->draw_matches($config, $matches, []); # remove matches
+    $screen->draw_matches($config, $matches, []); # clear matches

 
     foreach (@{$matches}) {
         return { match => $_ } if $_->{id} == $number;
 
     foreach (@{$matches}) {
         return { match => $_ } if $_->{id} == $number;


@@ -890,7 +890,7 @@ sub handler_yank {
 
     $screen->debug('handler_yank', 'started');
 
 
     $screen->debug('handler_yank', 'started');
 

-    require File::Temp;
+    require File::Temp; # load here to speedup startup

 
     # Use a temporary file to prevent leaking the yanked data to other users
     # with the command line, e.g. ps aux or top.
 
     # Use a temporary file to prevent leaking the yanked data to other users
     # with the command line, e.g. ps aux or top.


@@ -945,7 +945,7 @@ sub handler_paste {
 
     $screen->debug('handler_paste', 'started');
 
 
     $screen->debug('handler_paste', 'started');
 

-    require Time::HiRes;
+    require Time::HiRes; # load here to speedup startup

 
     my @cmd;
     if ($config->{setting}{multiplexer} eq 'screen') {
 
     my @cmd;
     if ($config->{setting}{multiplexer} eq 'screen') {