Changeset 9830

Show
Ignore:
Timestamp:
04/19/08 03:38:06 (5 years ago)
Author:
hanekomu
Message:

r6216@91-113-92-200: marcel | 2008-04-18 17:47:06 +0200

  • Devel::SearchINC::FindLib? can now handle semicolon-separated paths as
    well

Location:
lang/perl/Devel-SearchINC/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Devel-SearchINC/trunk/Changes

    r9771 r9830  
    1414      - updated MANIFEST 
    1515      - moved generated documentation of interited methods to after documentation of this class' methods so the manpage is more readable 
    16     date: 2008-01-31T16:01:19Z 
     16      - Devel::SearchINC::FindLib can now handle semicolon-separated paths as well 
     17    date: 2008-04-18T15:47:06Z 
    1718    tags: 
    1819      - NEWFEATURE 

  • lang/perl/Devel-SearchINC/trunk/lib/Devel/SearchINC/FindLib.pm

    r9771 r9830  
    1111sub import { 
    1212    my $pkg = shift; 
     13 
    1314    for my $path (@_) { 
     15 
     16        # Allow paths to be separated by semicolons as well as colons; 
     17        # splitting along colons is done by perl already. 
     18 
     19        my @path = 
     20            map { s/^~/$ENV{HOME}/; $_ } 
     21            split /\s*;\s*/ => 
     22            $path; 
     23 
    1424        find(sub { 
    1525            return unless -d; 
    … …  
    2434                unshift @INC, $File::Find::name; 
    2535            } 
    26         }, $path); 
     36        }, @path); 
    2737    } 
    2838    unshift @INC, split /:/ => $ENV{SEARCHINC_FIRST}