Index: /lang/perl/Module-Collect/trunk/lib/Module/Collect.pm
===================================================================
--- /lang/perl/Module-Collect/trunk/lib/Module/Collect.pm (revision 20410)
+++ /lang/perl/Module-Collect/trunk/lib/Module/Collect.pm (revision 20461)
@@ -25,5 +25,5 @@
 
     my $path = $self->{path} || [];
-       $path = [ $path ] unless ref $path;
+       $path = [ $path ] unless ref($path) eq 'ARRAY';
 
     for my $dirpath (@{ $path }) {