Hello tbsky,

Can you give example code for a service you run, together with the command sequence you issue to control service installation, etc.? So far, I’ve not been able to get your code to work — but that’s likely because I don’t know enough about the Win32::Daemon module. :-(

In the meantime, perhaps you could try a module such as Test::LeakTrace. Here’s how I would proceed:

• Wrap the top-level code into its own subroutine, say sub main
• Change each exit statement into a return statement; for example, exit 1; becomes return 1;
• Add the following at the top level:

  use Test::LeakTrace;
  
  {
      my $result;
  
      leaktrace
      {
          $result = main();
      };
  
      exit $result;
  }
  [download]

• Redirect program output to a log file, to facilitate analysis of the leak reports after the service has been stopped and uninstalled.

BTW, the following isn’t very informative:

print "Failed to install service: $!\n";
[download]

From the documentation, the correct way to report failure is like this:

print 'Failed to install service: ',
       Win32::FormatMessage(Win32::Daemon::GetLastError()), "\n";
[download]

Also, you have use Fcntl;, but I don’t think it’s actually used anywhere, is it?

Hope that helps,