view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

commit 51ae3683c36952f89e423622465a463fdd45725c
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Thu Nov 10 17:37:20 2011 +0000

    avoid ualarm.
    
    smoketesting fails where it is absent (Win32 strawberry),
     and I chose ualarm by analogy with usleep,
     not realising that Time::HiRes::alarm could do what I need,
     and I now guess that alarm($frac) is supported on win32.
    
    warn reader of the delay, although it should generally be short;
    s/ualarm/alarm/ , but still from Time::HiRes;
    check also that it didn't take too long

commit b6c116ee1a45ad040bcd3a2d233202b6012e489e
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Thu Nov 10 09:19:01 2011 +0000

    deal with lack of tty.

t/00-sane.t  view on Meta::CPAN

}


sub has_bash_tt {
  # see that we're talking to something we understand
  my $bash_version = `bash -c 'echo \$BASH_VERSION'`;
  chomp $bash_version;

  my $present = ok($bash_version ne '', 'Bash is installed');

  like($bash_version, qr{^([2-9]|\d{2,})\.\d+}, # >= v2 is a guess
       "bash --version: sane and modern-ish")
    && diag("bash --version: $bash_version");

  return $present;
}

sub preconds_tt {
  # Need PATH during PATH-munge in later tests
  foreach my $k (qw( PATH )) {
    ok(defined $ENV{$k} && $ENV{$k} ne '', "\$$k is set");