SPUG: Win32::Process

[ced at carios2.ca.boeing.com]

>BEGIN {
>use POSIX qw(uname);
>($kernel, $hostname, $release, $version, $hardware) = uname();
>        if ( $kernel eq "Windows NT") {
>        require Win32::Process;
>        }
>}

>Everything seemed ok, but apparently some of the module did not load or
>loaded wrong and the script now hangs up whilst running 

>  $Result = Win32::Process::Create ( $Process, $HARBORCMD, $CMDLINE,
>$bInherit, $Flags, $HAR
>BORDIR );
>  if ( $Result ) { print "$MSG\n"; $Process->Wait(INFINITE); }
>  else { print "Error: " . Win32::FormatMessage( Win32::GetLastError() ); }
>}
>
>A collegue who is more NT knowledgable then me assures me it is the
>Wait(INFINITE) part that is not working.  ie it goes out and waits
>infinitely and never returns.

>Note:  If instead of BEGIN I used use Win32::Process the script worked, but
>not on a unix box cause there is no Win32::Process module.

> So, finally the question:

> s there a problem with Win32::Process, or is my code with the Wait in it
>incorrect?

One problem, likely to be relevant, is that 'use' imports into your 
namespace while while 'require' doesn't (see perldoc perlmod,
perldoc -f use, perldoc -f require etc.) 

perl -MWin32::Process -le "print INFINITE"
4294967295

or equivalently:

perl -le "BEGIN{ require Win32::Process; import Win32::Process };
print INFINITE"
4294967295

Also, you'd also need to wrap the OS specific stuff (see
'perldoc perlport' for discussion of issues here):


if ( $^O =~ /MSWin32/ ) {  
   $Result = Win32::Process::Create ( $Process, $HARBORCMD, $CMDLINE,
}

Rgds,
--
Charles DeRykus

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
  Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/