Re: SEGV signal termination in Win32::NetAdmin ver 0.12 on Win64 w ActiveStatePerl5.16.3 X64

Are you sure you've given us all relevant code and messages?

When I execute what you gave us, under 32 bit Win7, AS 5.16.3, with the original install (v = .11) of Win32::NetAdmin, I see:

Reference found where even-sized list expected at D:\_wo_sch\1080998.pl line 4.

That's as expected; if you delete the " = {}" so line 4 becomes "my %UserList;", you may have better success (emphasis on the "may", as I'm not playing with 64 bit 'doze.

Questions containing the words "doesn't work" (or their moral equivalent) will usually get a downvote from me unless accompanied by:

code
verbatim error and/or warning messages
a coherent explanation of what "doesn't work actually means.

Comment on Re: SEGV signal termination in Win32::NetAdmin ver 0.12 on Win64 w ActiveStatePerl5.16.3 X64 Select or Download Code

Replies are listed 'Best First'.
Re^2: SEGV signal termination in Win32::NetAdmin ver 0.12 on Win64 w ActiveStatePerl5.16.3 X64 by suzun30 (Acolyte) on Apr 14, 2014 at 22:15 UTC
Hi, Thanks for your response. I corrected that to (). It was a mistake while trying to simplify the code for display here. But essentially that's the code. I am looking for any inputs on the SEGV issue. Please let me know if you have any pointers on that subject. Thanks,	[reply]
Re^3: SEGV signal termination in Win32::NetAdmin ver 0.12 on Win64 w ActiveStatePerl5.16.3 X64 by bulk88 (Priest) on Apr 15, 2014 at 03:44 UTC
SEGVs dont really happen on Win32 (excluding Cygwin). They are called Exceptions with error code 0xC0000005 and perl signals can not catch them. Therefore "Signal SEGV at C:/Perl64/lib/perl5db.pl line 7597 , <INFILE> line 23. DB::diesignal('SEGV')called at GetLocalAdmins.pl " is manually generated. Therefore, there is code you are not showing us. There is no line 23 in your script and no <> operator. I see only upto line 14. The line 7597 in your script is http://perl5.git.perl.org/perl.git/blob/25fdf527591b902c99f699bb9d51d4f6ce49a6fc:/lib/perl5db.pl#l8503 in git perl. The line in ActivePerl is `# Tell us all about it. &warn( Carp::longmess("Signal @_") );` [download] , not _db_warn. Something called $signalLevel, to allow diesignal to run and nothing uses http://grep.cpan.me/?q=signalLevel on CPAN, so its your code.	[reply] [d/l]