In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/34ea573bc5236fc856e9ef46efe729e09da2b167?hp=d0a3d6d981209bcd0d361ffd9b151631c4acbfa1>
- Log ----------------------------------------------------------------- commit 34ea573bc5236fc856e9ef46efe729e09da2b167 Author: Karl Williamson <[email protected]> Date: Fri Mar 16 10:14:05 2012 -0600 charnames.t: Attempt to fix probable timing issue charnames.t sometimes fails on a test that is expecting a file to be non-existent. However, other tests in it briefly create a file by that name. When two instances of the .t are run in parallel, as happens in some smokes, it could be that the file exists at the time it is expected not to. The result is a non-reproducible failure. Anyway, that is my theory. And so this commit changes to use a filename that is used just by the test for what happens when a file is non-existent, and hence doesn't ever exist even transiently. M t/lib/charnames/alias commit cbba5ad3171ce71ed2a33c4e53a23bd58c747b84 Author: Karl Williamson <[email protected]> Date: Sun Mar 11 10:44:19 2012 -0600 cherrymaint: Beef up --help option I can never remember how to set the tunnel up for using this, so add it to the help output M Porting/cherrymaint ----------------------------------------------------------------------- Summary of changes: Porting/cherrymaint | 3 +++ t/lib/charnames/alias | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Porting/cherrymaint b/Porting/cherrymaint index c5b2804..f4092a9 100644 --- a/Porting/cherrymaint +++ b/Porting/cherrymaint @@ -30,6 +30,9 @@ $usage .= "\n" . << "HERE"; COMMIT: a git revision ID (SHA1 or symbolic reference like HEAD) + You must first tunnel $addr to perl5.git.perl.org:3000? E.g. + \$ ssh -C -L${\ join q{:} => reverse split /:/, $addr}:3000 perl5.git.perl.org + HERE die $usage if grep { /^(--help|-h)$/ } @ARGV; diff --git a/t/lib/charnames/alias b/t/lib/charnames/alias index e234de3..fb1a914 100644 --- a/t/lib/charnames/alias +++ b/t/lib/charnames/alias @@ -204,11 +204,11 @@ Unknown charname 'LATIN:e WITH ACUTE' at # NAME alias with nonexisting file use warnings; no warnings 'void'; -use charnames ":full", ":alias" => "xyzzy"; +use charnames ":full", ":alias" => "non_existing_xyzzy"; "Here: \N{e_ACUTE}\N{a_ACUTE}!\n"; EXPECT OPTIONS regex -unicore/xyzzy_alias.pl cannot be used as alias file for charnames at +unicore/non_existing_xyzzy_alias.pl cannot be used as alias file for charnames at ######## # NAME alias with bad file name use warnings; -- Perl5 Master Repository
