Hi
Thank you for your reply.
Yes, I did install a SIG{__DIE__} handler, and sure enough, when I comment
out the call to it, the script works again.
I will mention why I installed the SIG{__DIE__} handler.
* When I run the script by copying and pasting the path of the script into
a NT command line window, when an error/die happens, it displays the die
message, the script exits, and THE WINDOW STAYS OPEN. This way I can read
the die message that was printed just before the script exited.
* When I run the script by double clicking on the file name in Windows
Explorer (or by clicking on a link to the script), when an error/die
happens, it prints to the command line window, exits, and THEN THE WINDOW
IMMEDIATELY CLOSES, so I cannot read the error message.
This is why I added the SIG{__DIE__} handler to the script, which must be
overriding the local SIG{__DIE__} handler in Config.pm.
Thanks again for your reply. You hit the nail on the head.
But still.... (You must "love" it when someone comes up with a diddly
little error like this...)
Ron
At 07:04 PM 10/22/01 +0100, Graham Barr wrote:
>On Mon, Oct 22, 2001 at 02:09:33PM -0400, Ron Pero wrote:
>> Greetings
>>
>> I've just downloaded and installed libnet-1.0704.
>> A script that always worked before now fails.
>>
>> This is the error message:
>> The getpwuid function is unimplemented at
>> c:\Perl\site\5.005\lib/Net/Config.pm line 47
>
>The eval should catch that. Do you have a SIG{__DIE__} handler installed ?
>
>> Lines 46 and 47 are:
>> if ($< == $> and !$CONFIGURE) {
>> my $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
>>
>> I am running NT 4.
>>
>> Where does $CONFIGURE get defined?
>
>It is set during the install of libnet, during normal usage it will
>always be false
>
>> Any thoughts on how to avoid this error, besides ditching NT 4?
>
>:)
>
>Graham.
>
>>
>> Thanks in advance.
>>
>> Ron
>
>
