diff -Nur --no-dereference e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm
--- e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm	2022-11-23 17:02:16.800000000 -0500
+++ e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm	2022-11-23 17:04:43.374000000 -0500
@@ -1123,17 +1123,18 @@
     {
         my ($startScript) = glob("/etc/rc.d/rc7.d/S*$serviceName") ||'' ;
         my ($systemdScript) = "/usr/lib/systemd/system/$serviceName.service" ||'';
+	my ($systemdAlias) = "/etc/systemd/system/$serviceName.service" ||'';
   	my $multiple = "$serviceName.service";
   	($multiple = $serviceName ) =~ s/([a-zA-Z0-9\-_.]+@)(.*)/$1.service/ if ( $serviceName =~ /@/ );
 
-        unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple")
+	unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias)
         {
             warn "serviceControl: startScript not found "
               . "for service $serviceName\n";
             return 0;
         }
 
-        if ( (-e $systemdScript  or -e "/usr/lib/systemd/system/$multiple") and ! -e $startScript){
+	 if ( (-e $systemdScript  or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias) and ! -e $startScript){
 	    # systemd is not aware of adjust, sigusr1, sigusr2, sigterm, sighup
 	    $serviceAction = ( $serviceAction =~/^(adjust|graceful|sighup|sigusr1|sigusr2)$/ ) ? "reload-or-restart" : $serviceAction; 
            $serviceAction = ( $serviceAction eq "sigterm" ) ? "restart" : $serviceAction;