-John wb8...@qsl.net Personal Opinion Only
--- /rsync_root/perl/lib/Pod/t/text-options.t Fri Dec 19 03:14:10 2008 +++ lib/Pod/t/text-options.t Mon May 25 16:23:28 2009 @@ -69,7 +69,7 @@ $output = <TMP>; } close TMP; - unlink ('tmp.pod', 'out.tmp'); + 1 while unlink ('tmp.pod', 'out.tmp'); my $expected = ''; while (<DATA>) { last if $_ eq "###\n";