Changeset 20461 for lang/perl/Module-Collect

Timestamp:

10/02/08 11:39:01 (5 years ago)

Author:

yappo

Message:

check ref array

Files:

• lang/perl/Module-Collect/trunk/lib/Module/Collect.pm (modified) (1 diff)

lang/perl/Module-Collect/trunk/lib/Module/Collect.pm

@@ -25 +25 @@
 
     my $path = $self->{path} || [];
-       $path = [ $path ] unless ref $path;
+       $path = [ $path ] unless ref($path) eq 'ARRAY';
 
     for my $dirpath (@{ $path }) {