|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 23 Sep 2004 20:49:23
To : yurik shestakov
Subject : Re: аналог CGI::Carp
--------------------------------------------------------------------------------
yurik shestakov wrote:
> On Thu, Sep 23, 2004 at 02:37:13PM +0000, Konstantin Tokar wrote:
> KT> >
> KT> >KT> И наконец, можно прочитать документацию и попробовать разобраться,
> KT> >KT> почему при указании
> KT> >KT> use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
> KT> >KT> твои варнинги теряются.
> KT> >
> KT> >Вопрос в том, как генерятся эти варнинги.
> KT> >
> KT> Какая разница как ?
>
> Если через "warn", то поймается в $SIG{__WARN__} (то, что делает
> параметр "warningsToBrowser").
> Если через `print STDERR "some warning\n"', то лечится перехватом STDERR.
> Кстати, надо смотреть apache/logs/error_log, поскольку туда завернут STDRR.
>
Hу, вот действующий пример, ловятся и warn, и print STDERR одинаковым
способом :
#!perl -w
use strict;
use HTML::Template;
sub main {
my $t = new HTML::Template;
print $t->ppp;
} ## end sub main
print "\n\n";
open IN, ">stderr.log" || die($!);
*STDERR = \*IN;
warn("test warn");
print STDERR "test print stderr\n";
eval { main(); };
warn $@ if $@;
close IN;
open IN, "<stderr.log" || die($!);
print <IN>;
close IN;
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
|
