[rt.cpan.org #65745]

[Dirk Joos via RT]

Tue Feb 15 13:31:40 2011: Request 65745 was acted upon.
Transaction: Ticket created by Dirk80
       Queue: PAR-Packer
     Subject: (No subject given)
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: d...@dirkundsari.de
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=65745 >


Hello,

I think it is not a bug, but I'm very interested in a workaround. If I
create a process from a perl script with "open" or
"Win32::Process::Create" and this process is a "pp packed executable"
then it is NOT possible to send it the kill signal. Because the "pid" I
get from "open" or "Win32::Process::Create" does NOT seem to be the pid
of the unpacked perl script which is finally doing the work.

Here an example without a "pp packed executable":

"counter.pl": This is the child process.
<code>
use strict;
use warnings;

$|=1;
print "$_\n" and select(undef,undef,undef,0.1) for 1 .. 1000;
</code>

And now the perl script which is creating a child process (without "pp
packed executable"):
<code>
use strict;
use warnings;

use Win32::Process;
use Win32;

sub ErrorReport
{
    print Win32::FormatMessage( Win32::GetLastError() );
}

my $ProcessObj;
Win32::Process::Create($ProcessObj,
                       "C:\\Perl\\bin\\perl.exe",
                       "perl counter.pl",                       
                       1,
                       CREATE_NEW_PROCESS_GROUP,
                       ".")|| die ErrorReport();

$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(1);
$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(3);
$ProcessObj->Kill(0);
</code>

This is working. It is possible to suspend, resume and kill the child
process.

Now I am doing exactly the same with an "pp packed executable".
"counter.exe" which was created with "pp -o counter.exe counter.pl".

<code>
use strict;
use warnings;

use Win32::Process;
use Win32;

sub ErrorReport
{
    print Win32::FormatMessage( Win32::GetLastError() );
}

my $ProcessObj;
Win32::Process::Create($ProcessObj,
                       ".\\counter.exe",
                       "counter",
                       1,
                       CREATE_NEW_PROCESS_GROUP,
                       ".")|| die ErrorReport();

$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(1);
$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(3);
$ProcessObj->Kill(0);
</code>

Now the create is working again. But the suspend, resume and kill are
NOT working.

It's now clear for me that a "pp packed executable" extracts everything
to a temporary directory and then executes the unpacked script. 

What could be a workaround that makes it possible to send a signal to a
"pp packed executable?

I'm using Version 1.007 of Par::Packer and perl 5.10 (ActiveState) on
Windows.

But I think that it is a general problem.

Thank you very much for your help.
Dirk