unix test, support -L with spaces

Author: mohawk2

lib/ExtUtils/Liblist/Kid.pm

@@ -49,8 +49,10 @@ sub _unix_os2_ext {
     # $potential_libs
     # this is a rewrite of Andy Dougherty's extliblist in perl
 
+    require Text::ParseWords;
+
     my ( @searchpath );    # from "-L/path" entries in $potential_libs
-    my ( @libpath ) = split " ", $Config{'libpth'} || '';
+    my ( @libpath ) = Text::ParseWords::quotewords( '\s+', 0, $Config{'libpth'} || '' );
     my ( @ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen );
     my ( @libs,       %libs_seen );
     my ( $fullname,   @fullname );
@@ -63,7 +65,7 @@ sub _unix_os2_ext {
         $potential_libs =~ s/(^|\s)(-F)\s*(\S+)/$1-Wl,$2 -Wl,$3/g;
     }
 
-    foreach my $thislib ( split ' ', $potential_libs ) {
+    foreach my $thislib ( Text::ParseWords::quotewords( '\s+', 0, $potential_libs) ) {
         my ( $custom_name ) = '';
 
         # Handle possible linker path arguments.
@@ -88,6 +90,7 @@ sub _unix_os2_ext {
                 $thislib = $self->catdir( $pwd, $thislib );
             }
             push( @searchpath, $thislib );
+            $thislib = qq{"$thislib"} if $thislib =~ / /; # protect spaces if there
             push( @extralibs,  "$ptype$thislib" );
             push( @ldloadlibs, "$rtype$thislib" );
             next;

t/Liblist_Kid.t

@@ -93,6 +93,7 @@ sub move_to_os_test_data_dir {
         },
         unix_os2 => {
             "libfoo.$Config{so}" => '',
+            "di r/libdir_test.$Config{so}" => '',
         },
     );
     $cwd = getcwd; END { chdir $cwd } # so File::Temp can cleanup
@@ -131,6 +132,9 @@ sub test_kid_unix_os2 {
     like( $out[2], $qlibre, 'existing file results in quotes ldloadlibs' );
     ok $out[3], 'existing file results in true LD_RUN_PATH';
     is_deeply [ _ext( '-L. -lnotthere' ) ], [ ('') x 4 ], 'non-present lib = empty';
+    my $curr_dirspace = File::Spec->rel2abs( 'di r' );
+    my $cmd_frag = '-L'.quote($curr_dirspace) . ' -ldir_test';
+    is_deeply [ _ext( '-L"di r" -ldir_test' ) ], [ $cmd_frag, '', $cmd_frag, $curr_dirspace ], '-L directories with spaces work';
 }
 
 sub test_kid_win32 {