| … | |
… | |
| 15 | =cut |
15 | =cut |
| 16 | |
16 | |
| 17 | package Canary::Stability; |
17 | package Canary::Stability; |
| 18 | |
18 | |
| 19 | BEGIN { |
19 | BEGIN { |
| 20 | $VERSION = 2001; # the year perl was accomodating enough to developers to foster weird ideas such as Coro |
20 | $VERSION = 2001; |
| 21 | } |
21 | } |
| 22 | |
22 | |
| 23 | sub sgr { |
23 | sub sgr { |
| 24 | # we just assume ANSI almost everywhere |
24 | # we just assume ANSI almost everywhere |
| 25 | |
|
|
| 26 | # red 31, yellow 33, green 32 |
25 | # red 31, yellow 33, green 32 |
| 27 | |
26 | |
| 28 | $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0 |
27 | $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0 |
| 29 | and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR}) |
28 | and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR}) |
| 30 | and print "\e[$_[0]m"; |
29 | and print "\e[$_[0]m"; |
| … | |
… | |
| 41 | if ($minvers > $VERSION) { |
40 | if ($minvers > $VERSION) { |
| 42 | sgr 33; |
41 | sgr 33; |
| 43 | print <<EOF; |
42 | print <<EOF; |
| 44 | |
43 | |
| 45 | *** |
44 | *** |
| 46 | *** The stability canary says: (nothing, he died of old age). |
45 | *** The stability canary says: (nothing, it died of old age). |
| 47 | *** |
46 | *** |
| 48 | *** Your Canary::Stability module (used by $distname) is too old. |
47 | *** Your Canary::Stability module (used by $distname) is too old. |
| 49 | *** This is not a fatal problem - while you might want to upgrade to version |
48 | *** This is not a fatal problem - while you might want to upgrade to version |
| 50 | *** $minvers (currently installed version: $VERSION) to get better support |
49 | *** $minvers (currently installed version: $VERSION) to get better support |
| 51 | *** status testing, you might also not want to care at all, and all will |
50 | *** status testing, you might also not want to care at all, and all will |
| … | |
… | |
| 58 | |
57 | |
| 59 | sgr 33; |
58 | sgr 33; |
| 60 | print <<EOF; |
59 | print <<EOF; |
| 61 | |
60 | |
| 62 | *** |
61 | *** |
| 63 | *** The stability canary says: chirp... (it seems a bit unhappy). |
62 | *** The stability canary says: chirp (it seems concerned about something). |
| 64 | *** |
63 | *** |
| 65 | *** Your perl version ($]) is older than the $distname distribution |
64 | *** Your perl version ($]) is older than the $distname distribution |
| 66 | *** likes ($minperl). This is not a fatal problem - the module might work |
65 | *** likes ($minperl). This is not a fatal problem - the module might work |
| 67 | *** well with your version of perl, but it does mean the author likely |
66 | *** well with your version of perl, but it does mean the author likely |
| 68 | *** won't do anything to make it wokr if it breaks. |
67 | *** won't do anything to make it work if it breaks. |
| 69 | *** |
68 | *** |
| 70 | |
69 | |
| 71 | EOF |
70 | EOF |
| 72 | } elsif (defined $Internals::StabilityBranchVersion) { |
71 | } elsif (defined $Internals::StabilityBranchVersion) { |
| 73 | # note to people studying this modules sources: |
72 | # note to people studying this modules sources: |
| … | |
… | |
| 84 | *** All should be well, and if it isn't, you should report this as a bug |
83 | *** All should be well, and if it isn't, you should report this as a bug |
| 85 | *** to the $distname author. |
84 | *** to the $distname author. |
| 86 | *** |
85 | *** |
| 87 | |
86 | |
| 88 | EOF |
87 | EOF |
| 89 | } elsif ($] <= 4.020) { |
88 | } elsif ($] <= 5.020) { |
| 90 | sgr 32; |
89 | #sgr 32; |
| 91 | print <<EOF; |
90 | print <<EOF; |
| 92 | |
91 | |
| 93 | *** |
92 | *** |
| 94 | *** The stability canary says: chirp! chirp! (it seems to be quite happy) |
93 | *** The stability canary says: chirp! chirp! (it seems to be quite happy) |
| 95 | *** |
94 | *** |
