Use of uninitialized value in join or string at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/File/Spec/Unix.pm line 81

##</code><code>##

--- lib.old/File/Spec/Unix.pm	2008-02-11 19:43:20.000000000 -0800
+++ lib/File/Spec/Unix.pm	2008-08-08 16:15:55.000000000 -0700
@@ -1,6 +1,7 @@
 package File::Spec::Unix;
 
 use strict;
+use Carp qw(cluck);
 use vars qw($VERSION);
 
 $VERSION = '3.2701';
@@ -78,7 +79,12 @@
 
 sub catdir {
     my $self = shift;
-
+	for ( @_ ) {
+		if ( !defined($_) ) {
+			cluck "Undefined arg passed to catdir";
+			last;
+		}
+	}
     $self->canonpath(join('/', @_, '')); # '' because need a trailing '/'
 }
 
@@ -91,6 +97,11 @@
 
 sub catfile {
     my $self = shift;
+	for ( @_ ) {
+		if ( !defined($_) ) {
+			cluck "Undefined arg passed to catfile";
+			last;
+		}
     my $file = $self->canonpath(pop @_);
     return $file unless @_;
     my $dir = $self->catdir(@_);