| Subject: | Use of uninitialized value $_[0] in join or string at /usr/local/lib/perl/5.10.1/File/Spec/Unix.pm |
catdir doesn't check its arguments.
This patch should correct this:
*** OUnix.pm 2010-11-18 14:23:52.000000000 +0000
--- Unix.pm 2010-11-18 14:24:55.000000000 +0000
***************
*** 83,88 ****
--- 83,90 ----
sub catdir {
my $self = shift;
+ return unless @_; # NHORNE
+
$self->canonpath(join('/', @_, '')); # '' because need a trailing '/'
}