Problems with Win32::API module

[leeked]

I've seen this question elsewhere and I have been all over Google trying to find a solution but I cannot find one anywhere.

Here is the code:

#!/usr/bin/perl

use Win32::API;

my $ZP4StartSession = new Win32::API("ZP4", "ZP4StartSession", [N], P) || die Win32::FormatMessage(Win32::GetLastError);

my $LLHandle = $ZP4StartSession->Call($LLHandle) || die Win32::FormatMessage(Win32::GetLastError);

The Call() function causes my command line to lock up.
Any help on why this is happening and/or a solution is greatly appreciated.

Thanks,
Chris

 

[Kirsle]

my [COLOR=red]$LLHandle[/color] = $ZP4StartSession->Call([COLOR=red]$LLHandle[/color])

Is it because you're using the same undeclared variable twice here?

Maybe...

my $LLHandle;
$LLHandle = $ZP4StartSession->Call($LLHandle)

or even use different variable names.

I dunno, random stab in the dark.

-------------
Cuvou.com | The NEW Kirsle.net

 

[leeked]

I realized I posted the wrong code, here it is corrected:

#!/usr/bin/perl

use Win32::API;

my $lpBuffer = "\0" x 64;

my $ZP4StartSession = new Win32::API("ZP4", "ZP4StartSession", [N], P) || die Win32::FormatMessage(Win32::GetLastError);

my $LLHandle = $ZP4StartSession->Call($lpBuffer) || die Win32::FormatMessage(Win32::GetLastError);

 

[KevinADC]

I would think these arguments should be quoted:

, '[N]', 'P'

but I have no idea why the Call() function locks up the script.

------------------------------------------
- Kevin, perl coder unexceptional!