--- Canary-Stability/Stability.pm 2015/06/25 14:38:27 1.5 +++ Canary-Stability/Stability.pm 2015/06/29 00:02:01 1.7 @@ -23,12 +23,13 @@ package Canary::Stability; BEGIN { - $VERSION = 2001; + $VERSION = 2006; } sub sgr { # we just assume ANSI almost everywhere # red 31, yellow 33, green 32 + local $| = 1; $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0 and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR}) @@ -91,7 +92,7 @@ *** EOF - } elsif ($] <= 5.020) { + } elsif ($] < 5.021) { #sgr 32; print < - http://home.schmorp.de/ + http://software.schmorp.de/pkg/Canary-Stability.html =cut