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.4 by root, Fri Jun 5 00:39:05 2015 UTC vs.
Revision 1.6 by root, Sat Jun 27 17:00:20 2015 UTC

… …
16although in principle nothing prevents them from subscribing to the same 16although in principle nothing prevents them from subscribing to the same
17ideas. 17ideas.
18 18
19See the F<Makefile.PL> in L<Coro> or L<AnyEvent> for usage examples. 19See the F<Makefile.PL> in L<Coro> or L<AnyEvent> for usage examples.
20 20
21=over 4
22
23=cut 21=cut
24 22
25package Canary::Stability; 23package Canary::Stability;
26 24
27BEGIN { 25BEGIN {
28 $VERSION = 2001; 26 $VERSION = 2006;
29} 27}
30 28
31sub sgr { 29sub sgr {
32 # we just assume ANSI almost everywhere 30 # we just assume ANSI almost everywhere
33 # red 31, yellow 33, green 32 31 # red 31, yellow 33, green 32
… …
91*** 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
92*** to the $distname author. 90*** to the $distname author.
93*** 91***
94 92
95EOF 93EOF
96 } elsif ($] <= 5.020) { 94 } elsif ($] < 5.021) {
97 #sgr 32; 95 #sgr 32;
98 print <<EOF; 96 print <<EOF;
99 97
100*** 98***
101*** 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)
… …
144*** 142***
145*** How can I skip this prompt on automated installs? 143*** How can I skip this prompt on automated installs?
146*** Set PERL_CANARY_STABILITY_NOPROMPT=1 in your environment. 144*** Set PERL_CANARY_STABILITY_NOPROMPT=1 in your environment.
147*** More info is in the Canary::Stability manpage. 145*** More info is in the Canary::Stability manpage.
148*** 146***
149*** Long version of this FAQ: http://stabilityperl.schmorp.de/faq.html 147*** Long version of this FAQ: http://stableperl.schmorp.de/faq.html
150*** Stability Branch homepage: http://stabilityperl.schmorp.de/ 148*** Stability Branch homepage: http://stableperl.schmorp.de/
151*** 149***
152 150
153EOF 151EOF
154 152
155 unless ($ENV{PERL_CANARY_STABILITY_NOPROMPT}) { 153 unless ($ENV{PERL_CANARY_STABILITY_NOPROMPT}) {
… …
186=back 184=back
187 185
188=head1 AUTHOR 186=head1 AUTHOR
189 187
190 Marc Lehmann <schmorp@schmorp.de> 188 Marc Lehmann <schmorp@schmorp.de>
191 http://home.schmorp.de/ 189 http://software.schmorp.de/pkg/Canary-Stability.html
192 190
193=cut 191=cut
194 192
1951 1931
196 194

Diff Legend

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