Re: Custom $SIG{__DIE__} problem (and I'm glad to be back)

2000-04-04 Thread James G Smith
"Russell D. Weiss" [EMAIL PROTECTED] wrote: So, onto the problem. Within the constructor for the wrapper object, I want to do: bless $self, $class; $main::SIG{'__DIE__'} = $self-custom_die; Try bless $self, $class; $main::SIG{'__DIE__'} = sub { $self-custom_die(@_) }; This will make

RE: Custom $SIG{__DIE__} problem (and I'm glad to be back)

2000-04-04 Thread Russell D. Weiss
Thanks James, Great little trick It worked! Thanks for the help, Russ Russell Weiss Founder and Technical Manager InfoRelay Online Systems, Inc. http://www.InfoRelay.net/ Try bless $self, $class; $main::SIG{'__DIE__'} = sub { $self-custom_die(@_) }; This will make sure

Re: Custom $SIG{__DIE__} problem (and I'm glad to be back)

2000-04-04 Thread Randal L. Schwartz
"James" == James G Smith [EMAIL PROTECTED] writes: James "Russell D. Weiss" [EMAIL PROTECTED] wrote: So, onto the problem. Within the constructor for the wrapper object, I want to do: bless $self, $class; $main::SIG{'__DIE__'} = $self-custom_die; James Try James bless $self, $class;