[Moscow.pm] perldoc -f alarm vs CGI-cкрипты

[Vladimir V. Perepelitsa]

On Tuesday 28 October 2008 12:28:50 Dmitry E. Oboukhov wrote:
> AAG> This is perl, v5.8.8 built for i386-freebsd-thread-multi-64int
>
> AAG> и так и так test at /usr/local/lib/perl5/5.8.8/CGI/Carp.pm line 314
>
> да я тоже сейчас залил на хостинг с perl 5.8.8 и там правда работает
> а вот на хостинге с perl 5.10 нет
>
> вот думаю толи настройки апача это толи perl 5.10
> что-то про апач погуглил и не нашел пока ничего на эту тему
>
> у кого есть CGI с перлом 5.10?
>
> AAG> Server version: Apache/2.2.9 (FreeBSD)
> AAG> FreeBSD 7.0-RELEASE #0:
>
> AAG> On Tuesday 28 October 2008 11:59:08 Dmitry E. Oboukhov wrote:
> >> #!/usr/bin/perl
> >>
> >> use warnings;
> >> use strict;
> >>
> >> use utf8;
> >> use open qw(:std :utf8);
> >>
> >>
> >> use CGI::Carp qw(fatalsToBrowser);
> >>
> >> alarm 1;
> >> $SIG{ALRM}=sub { die "test" };
> >> sleep 2;
> >> die "end";
>
FreeBSD 6.2-RELEASE
Perl v5.10.0 built for i386-freebsd
Apache 2.2.4
=======
#!/usr/bin/perl

use strict;
print "Content-type:text/plain\n\n" if $ENV{SCRIPT_NAME};
eval {
    $SIG{ALRM}=sub { die "die by alarm" };
    alarm 1;
    #select undef,undef,undef,3;
    sleep 3;
    die "Not by alarm";
};

print $@;
=======

и при консольном запуске и через mod_cgi получаем 
die by alarm at /opt/journal/www/alarm.cgi line 7.

и если используем select вместо sleep - то-же самое.


-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956