view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

Revision History for App-psst
=============================

v0.09 2011-12-02
----------------

commit 8e33e45f2124d7138c22dc6319a57abb22aa9e6a
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Fri Dec 2 09:16:37 2011 +0000

    try harder for pidseq on busy systems
    
    will skip if they're still not smoking green

commit e05d35653c77eb76596f044f28b0af5f0c4ee12c
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Fri Dec 2 09:06:27 2011 +0000

    give up earlier if no Bash.
    
    (would prefer an NA for mswin32, rather than a big red FAIL,

t/prompt.t  view on Meta::CPAN

  # Summarise
  if (0 == @diff_sig) {
    return "random: $raw";
  } elsif (1 == @diff_sig) {
    my $diff = $diff_sig[0];
    my $type = { 1 => 'sequential', 2 => 'promptburn' }->{$diff} || 'weird';
    return "$type=$raw";
  } else {
    if ($retrying) {
      return "weird (not unimodal..  not enough trials? system busy?): $raw";
    } else {
      diag("weird pidseq ($raw) - going to try harder");
      return pidseq_subtest($N * 10);
    }
  }
}

sub deansi { # removes ANSI/vt100 codes we use
  my ($txt) = @_;
  $txt =~ s{\x1b\[([0-9;]*)m}{dv(c => $1)}eg; # colour