[log4perl-devel] Problems with log4perl and __DIE__ pseudo signal

[DAY R. <Rog...@at...>]

Hi

 

Good to see the log4perl-devel list up and alive. I've managed to drag
another company into using log4perl, but to business.

 

I've implemented Matt Sargants recomendations for exception handling but
on the throw method I keep getting a "bad file descriptor" in $@ when I
add the line Log::Log4perl->easy_init(); Is there a way around this? I
think it's the easy_init causing the problem; do I need to close
Log::Log4perl properly, or somesuch?

 

 

use MRFExceptions;

 

 

use Log::Log4perl;

 

Log::Log4perl->easy_init();

 

sub a {

 

    my $test = shift;

 

    if ($test) {

        throw MRF::Exception::Remote('userid'=>"some crappy file");

    }

}

my $test = 1;

 

local($@);

eval {

 

    &a($test);

 

} or do {

    print "ERROR ".$@."\n";

    if ($@) {

        

        print "die, die, die\n";

        

        if ($@->isa('MRF::Exception::Deploy')) {

            print "MRF::Exception::Deploy [", $@->userid, "]: $@" ;

            

        } else {

            print "Down the list\n";

        }

 

    }

 

};

1;

 

And so

 

use Fatal qw(:void open close);

 

local $SIG{__DIE__} = sub {

    my $err = shift;

 

    if ($err->isa('MRF::Exception')) {

 

        die $err; # re-throw

 

    } else {

 

        $! = "this error";

        die MRF::Exception->new($err);

 

    }

 

};

 

And so

 

package MRFExceptions;

 

our (@ISA, @EXPORT);

 

BEGIN {

 

    require Exporter;

    @ISA = qw(Exporter);

    @EXPORT = qw(throw);  # symbols to export on request

    

}

 

use Exception::Class (

                      MRF::Exception => {

                                         'description' => 'Default
Exception for the MRF system.',

                                        },

                      MRF::Exception::IO => {

                                             'isa' => 'MRF::Exception',

                                             'description' => 'IO
Exception',

                                             'fields' => [ 'filedump'],

                                            },

                      MRF::Exception::Deploy => {

                                                 'isa' =>
'MRF::Exception',

                                                 'fields' => [
'operation','filedump' ],

                                                 'description' =>
'Deployment problem',

                                                },

                      

                      MRF::Exception::Remote => {

                                                 'isa' =>
'MRF::Exception::Deploy',

                                                 'fields' => [
'userid','machine','operation' ],

                                                 'description' =>
'Remote Deployment',

                                                },

);

 

sub throw {

 

    my $mess = join('', @_);

    $mess =~ s/\n?$/\n/;

    my $i = 1;

    local $" = "', '";

    package DB;

 

    while (my @parts = caller($i++)) {

 

        my $q; $q = "'" if @DB::args;

        $mess .= " -> $parts[3](@DB::args)" .

            " at $parts[1] line $parts[2]\n";

 

    }

 

    print "MESS: $mess\n";

    die $mess;

}

 

1;


**********************************************************************
The Atradius Group conducts insurance, debt collection and information services business through its registered offices and branch offices in various countries. For information about the main registration details of the Atradius branch offices in your country please visit http://global.atradius.com/general-content/legal/legallist.html



IMPORTANT NOTICE. This message, including any and all attachments, is intended for the addressee or its representative only and is confidential and may be under legal privilege. Any form of unauthorised use, publication, reproduction, copying or disclosure of the content of this e-mail is not permitted. If you are not the intended recipient of this e-mail message and its contents, please notify the sender immediately by reply email and delete this message and all its attachments subsequently. Although this email and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by Atradius N.V. or its subsidiaries or affiliates (Atradius Group) either jointly or severally, for any loss or damage arising in any way from its use. Email messages received by Atradius Group can be stored for business purposes.

**********************************************************************