--- Canary-Stability/Stability.pm 2015/06/05 00:39:05 1.4 +++ Canary-Stability/Stability.pm 2015/06/29 00:02:01 1.7 @@ -18,19 +18,18 @@ See the F in L or L for usage examples. -=over 4 - =cut 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}) @@ -93,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