| … | |
… | |
| 21 | =cut |
21 | =cut |
| 22 | |
22 | |
| 23 | package Canary::Stability; |
23 | package Canary::Stability; |
| 24 | |
24 | |
| 25 | BEGIN { |
25 | BEGIN { |
| 26 | $VERSION = 2001; |
26 | $VERSION = 2006; |
| 27 | } |
27 | } |
| 28 | |
28 | |
| 29 | sub sgr { |
29 | sub 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 |
| … | |
… | |
| 89 | *** All should be well, and if it isn't, you should report this as a bug |
89 | *** All should be well, and if it isn't, you should report this as a bug |
| 90 | *** to the $distname author. |
90 | *** to the $distname author. |
| 91 | *** |
91 | *** |
| 92 | |
92 | |
| 93 | EOF |
93 | EOF |
| 94 | } elsif ($] <= 5.020) { |
94 | } elsif ($] < 5.021) { |
| 95 | #sgr 32; |
95 | #sgr 32; |
| 96 | print <<EOF; |
96 | print <<EOF; |
| 97 | |
97 | |
| 98 | *** |
98 | *** |
| 99 | *** The stability canary says: chirp! chirp! (it seems to be quite happy) |
99 | *** The stability canary says: chirp! chirp! (it seems to be quite happy) |
| … | |
… | |
| 184 | =back |
184 | =back |
| 185 | |
185 | |
| 186 | =head1 AUTHOR |
186 | =head1 AUTHOR |
| 187 | |
187 | |
| 188 | Marc Lehmann <schmorp@schmorp.de> |
188 | Marc Lehmann <schmorp@schmorp.de> |
| 189 | http://home.schmorp.de/ |
189 | http://software.schmorp.de/pkg/Canary-Stability.html |
| 190 | |
190 | |
| 191 | =cut |
191 | =cut |
| 192 | |
192 | |
| 193 | 1 |
193 | 1 |
| 194 | |
194 | |
