start screen with specific screenrc file, if available

SLS

@@ -2,7 +2,7 @@
 #
 # find or create screen session
 #
-# $Id: SLS,v 1.3 2012/12/14 13:35:38 gonter Exp $
+# $Id: SLS,v 1.4 2022/04/15 15:46:06 gonter Exp $
 #
 
 =pod
@@ -93,12 +93,14 @@ if (@PARS)
     print ">>> $cmd_title\n";
     system ($cmd_title) if ($doit);
 
-    my $cmd_screen= "screen -S '$wanted'";
-    print ">>> $cmd_screen\n";
+    my @cmd_screen= ('screen', '-S', $wanted);
+    my $rc_wanted= ".screenrc-$wanted";
+    push (@cmd_screen, '-c', $rc_wanted) if (-f $rc_wanted);
+    print ">>> ", join(' ', @cmd_screen), "\n";
     if ($doit)
     {
       if (!$dir_changed && $wanted =~ /notes/i) { &chdir ("common/Notes"); $dir_changed= 1; }
-      system ($cmd_screen);
+      system (@cmd_screen);
     }
   }
   elsif ($cnt == 1)