--- Canary-Stability/Stability.pm	2015/06/25 14:38:27	1.5
+++ Canary-Stability/Stability.pm	2019/04/22 10:40:01	1.10
@@ -23,12 +23,13 @@
 package Canary::Stability;
 
 BEGIN {
-   $VERSION = 2001;
+   $VERSION = 2013;
 }
 
 sub sgr {
    # we just assume ANSI almost everywhere
    # red 31, yellow 33, green 32
+   local $| = 1;
 
    $ENV{PERL_CANARY_STABILITY_COLOUR} ne 0
    and ((-t STDOUT and length $ENV{TERM}) or $ENV{PERL_CANARY_STABILITY_COLOUR})
@@ -43,11 +44,39 @@
 
    $minperl ||= 5.008002;
 
+   print <<EOF;
+
+***
+*** Canary::Stability COMPATIBILITY AND SUPPORT CHECK
+*** =================================================
+***
+*** Hi!
+***
+*** I do my best to provide predictable and reliable software.
+***
+*** However, in recent releases, P5P (who maintain perl) have been
+*** introducing regressions that are sometimes subtle and at other times
+*** catastrophic, often for personal preferences with little or no concern
+*** for existing code, most notably CPAN.
+***
+*** For this reason, it has become very hard for me to maintain the level
+*** of reliability and support I have committed myself to in the past, at
+*** least with some perl versions: I simply can't keep up working around new
+*** bugs or gratituous incompatibilities, and in turn you might suffer from
+*** unanticipated problems.
+***
+*** Therefore I have introduced a support and compatibility check, the results
+*** of which follow below, together with a FAQ and some recommendations.
+***
+*** This check is just to let you know that there might be a risk, so you can
+*** make judgement calls on how to proceed - it will not keep the module from
+*** installing or working.
+***
+EOF
+
    if ($minvers > $VERSION) {
       sgr 33;
       print <<EOF;
-
-***
 *** The stability canary says: (nothing, it died of old age).
 ***
 *** Your Canary::Stability module (used by $distname) is too old.
@@ -57,14 +86,11 @@
 *** be well as long $distname works well enough for you, as the stability
 *** canary is only used when installing the distribution.
 ***
-
 EOF
    } elsif ($] < $minperl) {
 
       sgr 33;
       print <<EOF;
-
-***
 *** The stability canary says: chirp (it seems concerned about something).
 ***
 *** Your perl version ($]) is older than the $distname distribution
@@ -72,8 +98,18 @@
 *** well with your version of perl, but it does mean the author likely
 *** won't do anything to make it work if it breaks.
 ***
+EOF
 
+      if ($ENV{AUTOMATED_TESTING}) {
+         print <<EOF;
+*** Since this is an AUTOMATED_TESTING environment, the stability canary
+*** decided to fail cleanly here, rather than to generate a false test
+*** result.
+***
 EOF
+         exit 0;
+      }
+
    } elsif (defined $Internals::StabilityBranchVersion) {
       # note to people studying this modules sources:
       # the above test is not considered a clean or stable way to
@@ -81,33 +117,25 @@
 
       sgr 32;
       print <<EOF;
-
-***
 *** The stability canary says: chirp! chirp! (it seems to be quite excited)
 ***
 *** It seems you are running schmorp's stability branch of perl.
 *** All should be well, and if it isn't, you should report this as a bug
 *** to the $distname author.
 ***
-
 EOF
-   } elsif ($] <= 5.020) {
+   } elsif ($] < 5.021) {
       #sgr 32;
       print <<EOF;
-
-***
 *** The stability canary says: chirp! chirp! (it seems to be quite happy)
 ***
 *** Your version of perl ($]) is quite supported by $distname, nothing
 *** else to be said, hope it comes in handy.
 ***
-
 EOF
    } else {
       sgr 31;
       print <<EOF;
-
-***
 *** The stability canary says: (nothing, it was driven away by harsh weather)
 ***
 *** It seems you are running perl version $], likely the "official" or
@@ -122,6 +150,7 @@
 EOF
       sgr 0;
       print <<EOF;
+***
 *** Stability canary mini-FAQ:
 ***
 *** Do I need to do anything?
@@ -181,12 +210,22 @@
 
 Disable this modules functionality completely.
 
+=item C<AUTOMATED_TESTING=1>
+
+When this variable is set to a true value and the perl minimum version
+requirement is not met, the module will exit, which should skip testing
+under automated testing environments.
+
+This is done to avoid false failure or success reports when the chances of
+success are already quite low and the failures are not supported by the
+author.
+
 =back
 
 =head1 AUTHOR
 
  Marc Lehmann <schmorp@schmorp.de>
- http://home.schmorp.de/
+ http://software.schmorp.de/pkg/Canary-Stability.html
 
 =cut