view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

Date:   Sun Nov 20 23:53:06 2011 +0000

    decrease Un*x assumption: dirsep may not be /
    
    munge them so they are, for our regex

commit 7264008557eadf873ba74b1f43feb7364c47b599
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Sun Nov 20 23:13:15 2011 +0000

    when finding $HOME , fall back to getpwuid.
    
    we need it to ensure bash_interactive is not tromping user's history file,
     so would prefer to match bash's way of finding ~
     but as long as this runs on author's machine there should be no tromping anyway

commit f7aba5a32a0d189d8905f588f6da5e43728b80f9
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Sun Nov 20 23:10:42 2011 +0000

    YAML now required for testing, declare it.

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

  my @path = File::Spec->splitdir($path);
  return join '/', @path;
}


sub histzap_tt {
  # ensure we are not polluting user's history file
  my $home = $ENV{HOME};
  if (!defined $home # e.g. MSWin32
      || $home eq '' || !-d $home) {
    $home = (getpwuid($>))[7];
    diag("\$HOME invalid, falling back to $home for histzap_tt check");
  }
  my $histfn = "$home/.bash_history";
  my $pid = $$;

  like(bash_interactive("echo 'disTincTivecanarycommand+$pid from $0'"),
       qr{^disTincTive.*$pid\b}m, "ran history canary");

 SKIP: {
    skip "no $histfn", 1 unless -f $histfn;