This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Guard against transitory files
authorKarl Williamson <public@khwilliamson.com>
Fri, 27 May 2011 14:28:59 +0000 (08:28 -0600)
committerKarl Williamson <public@khwilliamson.com>
Fri, 27 May 2011 14:37:58 +0000 (08:37 -0600)
commit77b8b9aded596134eb5091b72ad4d9cf361a7c94
tree17856d04be9a24c8607c2b95930c9312b12ea8b7
parent07fd1c9cb43c1268e72f10b8cde38fb3179fb04e
podcheck.t: Guard against transitory files

podcheck uses File::Find to look for pods in the directory structure.
It is possible for the Find to find a transitory file that is gone by
the time the file is opened for examination.  This patch will simply
skip the transitory file if the open fails and it's because it no longer
exists.  (There is a tiny window in which the open could fail, and
the file gets recreated and hence passes the exists test, but I'm not
bothering to code for that until it actually happens.)
t/porting/podcheck.t