Re: Perl Programmers Don't Die...

[moritz]

in reply to Perl Programmers Don't Die...

If they are damned, they croak. If they confessed their sins, they are now blessed and can live eternally as a self-referencing circle.

[twotone]

:-)

In all of my cgi scripts I use a little custom die subroutine so none of them just die, they die nicely.

sub dienice {
    print "Content-type: text/html\n\n" unless $header_printed;
    $header_printed = 1;
    my(@msg) = @_;
    print "<h2>Attention:</h2>\n";
    print join("<br>\n",@msg);
    exit;
}

[Jenda]

Well ... what if some module die()s? I think you should have a look at CGI::Carp instead or just enclose the script in one big eval{}

[twotone]

I suppose that I should clarify that this isn't for when my scripts die of natural causes, but when I kill them myself, i.e.:


open ... or &dienice("Can't open: $!");

Or for viewing troubleshooting data:

&dienice(@troubleshooting_data);

Perhaps I should rename the sub killnice, or maybe KillingMeSoftly?

*Music plays in the background*

Strumming my pain with his routine
Singing my life with his code
Killing me softly with his sub...