ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Canary-Stability/Stability.pm
(Generate patch)

Comparing Canary-Stability/Stability.pm (file contents):
Revision 1.6 by root, Sat Jun 27 17:00:20 2015 UTC vs.
Revision 1.7 by root, Mon Jun 29 00:02:01 2015 UTC

… …
27} 27}
28 28
29sub sgr { 29sub sgr {
30 # we just assume ANSI almost everywhere 30 # we just assume ANSI almost everywhere
31 # red 31, yellow 33, green 32 31 # red 31, yellow 33, green 32
32 local $| = 1;
32 33
33 $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0 34 $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0
34 and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR}) 35 and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR})
35 and print "\e[$_[0]m"; 36 and print "\e[$_[0]m";
36} 37}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines