build.pl fails in cleanup. It appears to try to remove a /tmp directory that no longer exists.
(in cleanup) Can't call method "FETCH" on an undefined value at /usr/lib/perl5/5.8.8/File/Path.pm line 185 during global destruction.
at /var/www/SVN/twiki/core/lib/TWiki/Contrib/Build.pm line 66
TWiki::Contrib::Build::__ANON__('Can\'t call method "FETCH" on an undefined value at /usr/lib/...') called at /usr/lib/perl5/5.8.8/File/Path.pm line 185
File::Path::_rmtree('/tmp/1Fq7KuQNXi', '', '/var/www/SVN/twiki/ToolTipPlugin/lib/TWiki/Plugins/ToolTipPlugin', 773, 43794, 'undef', 0) called at /usr/lib/perl5/5.8.8/File/Path.pm line 304
File::Path::rmtree('/tmp/1Fq7KuQNXi') called at /var/www/SVN/twiki/core/lib/TWiki/Contrib/Build.pm line 314
TWiki::Contrib::Build::DESTROY('TWiki::Contrib::Build=HASH(0x8159c28)') called at build.pl line 0
eval {...} called at build.pl line 0
The fix appears to be to change Build.pm to test if the directory exists before removing it.
sub DESTROY {
my $self = shift;
- File::Path::rmtree( $self->{tmpDir} ) if $self->{tmpDir};
+ File::Path::rmtree( $self->{tmpDir} ) if $self->{tmpDir} && (-d "$self->{tmpDir}");
}
--
TWiki:Main/GeorgeClark - 29 Sep 2008