BEGIN {
    use CGI::Carp qw(carpout);
    carpout(\*LOGGY) if open(LOGGY,'>>'.__FILE__.'.err.log');

}
[download]

update: weeeel, S_Shrum, i'd either carpout(\*STDOUT); or make warnings fatal and stick with fatalsToBrowser, like (and this works a little weird)

#!/usr/bin/perl
use warnings FATAL => qw( all );
warn "hello there";
{ # line 4 (notice its in a block)
  BAREWORD;
  BAREWORD;
  BAREWORD;
}
[download]

#!/usr/bin/perl
$SIG{__WARN__} = sub {die("warning: ",@_)};
warn "hello";
__END__
[download]

#!/usr/bin/perl
use CGI::Carp qw( fatalsToBrowser );
use Fatal qw( warn );
use strict;
use warnings;
warn "hello";
[download]

BEGIN {
   use vars qw( $WARR );
   $SIG{__WARN__} = sub {
                $WARR .= join ' ',(@_),caller(),"\n";
            };
}
warn "hello";
warn "hooyah";
die "aaah";

# ...
END {
    print "Content-Type: text-html\r\n\r\n <pre> $WARR </pre>";
}
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Your choice ofcourse :) the CGI::Carp POD mentioned the above example :)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

This works great...

I'm finding that having to run my script, having it fail, going to the log file, openning it, scrolling to the bottom is just too time consuming. How can I carpout to the browser for faster debugging?

======================
Sean Shrum
http://www.shrum.net

If that open failed, how would S_Shrum be any more enlightened? :)

Perhaps something more along the lines of...

open(LOG, ">>/usr/local/cgi-logs/mycgi-log")
  or do {
    my $error = "Unable to open mycgi-log: $!\n";
    print "Content-Type: text/plain\n\n", $error; # to the screen
    die $error;                                   # & the logs
  };
[download]

...until you're sure that isn't going to kill the script, too (keeping in mind that you may reveal your log path to any visitors).

    --k.