ActivePerl ne sortie au navigateur

Question

Fatals

J'utilise le code suivant pour tester la sortie des erreurs fatales au navigateur:

use CGI; 
use CGI::Carp qw(fatalsToBrowser); 

die "test"; 

J'attends de voir une erreur dans le navigateur, mais il ISN Pas n'importe, je reçois juste une réponse régulière 500. J'ai oublié que j'avais des pages d'erreur personnalisées pour les demandes à distance, et je reçois maintenant Script failed to send data..

aussi:

> perl -w index.pl 
Status: 500 
Content-type: text/html 

<h1>Software error:</h1> 
<pre>test at index.pl line 4.</pre> 
<p> 
For help, please send mail to this site's webmaster, giving this error message and the time and date of the error. 

</p> 
[Mon Feb 8 18:29:52 2010] index.pl: test at index.pl line 4. 

Answer 1

Essayez d'imprimer deux nouvelles lignes avant tout. Cela signale la fin des en-têtes HTTP au serveur comme le dit le 'CGI standard'. Ou vous pourriez être en mesure d'utiliser quelque chose comme ceci: (comme copié du Carp man page):

use CGI::Carp qw(set_die_handler); 
BEGIN { 
    sub handle_errors { 
     my $msg = shift; 
     print "content-type: text/html\n\n"; 
     print "<h1>Oh gosh</h1>"; 
     print "<p>Got an error: $msg</p>"; 
    } 
    set_die_handler(\&handle_errors); 
} 

Si cela ne fonctionne pas voici quelques astuces:

#!perl 
BEGIN { $| = 1; print "\n\n" } 
open STDERR, ">&STDOUT"; 

..Et une quelques astuces supplémentaires in this Perl Journal article.