Test fallito in prova se scrive su stdout senza newline

Question

Quando eseguo un test perl utilizzando l'utilità prove, fallisce se il metodo in prova contiene le frasi print che non vengono terminate da newline.

use Test::More tests=>1; 

ok(foo(), "calling foo"); 

sub foo{ 
    print "A"; 
    1; 
} 

Questo si traduce in

Bad plan. You planned 1 tests but ran 0. 

Se aggiungo una nuova riga: print "A\n"; il test viene superato.

(Si noti che se eseguo semplicemente il test perl mytest.t anziché utilizzare prove, esso passa in entrambi i casi).

Qualche idea sul perché questo potrebbe essere e su come aggirarlo?

Answer 1

ho trovato una soluzione rapida:

$|=0;  # no auto-flush 

... ma non ho idea (ancora) perché questo funziona.