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.8 by root, Sun Mar 13 03:44:43 2016 UTC vs.
Revision 1.9 by root, Sat Sep 24 23:50:03 2016 UTC

… …
21=cut 21=cut
22 22
23package Canary::Stability; 23package Canary::Stability;
24 24
25BEGIN { 25BEGIN {
26 $VERSION = 2011; 26 $VERSION = 2012;
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
… …
42 $ENV{PERL_CANARY_STABILITY_DISABLE} 42 $ENV{PERL_CANARY_STABILITY_DISABLE}
43 and return; 43 and return;
44 44
45 $minperl ||= 5.008002; 45 $minperl ||= 5.008002;
46 46
47 sgr 33;
48 print <<EOF; 47 print <<EOF;
49 48
50*** 49***
51*** Canary::Stability COMPATIBILITY AND SUPPORT CHECK 50*** Canary::Stability COMPATIBILITY AND SUPPORT CHECK
52*** ================================================= 51*** =================================================

Diff Legend

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