split find output to 3 fields to support spaces in filenames

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index bb7bbc9..d2c0132 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -352,7 +352,7 @@ sub list_files {
        my $list_txt;
        while(<$pipe>) {
                chomp;
-               my ( $type, $size, $name ) = split(/\s/, $_);
+               my ( $type, $size, $name ) = split(/\s/, $_, 3);
                $name =~ s{$dir}{./};
                $name =~ s{//+}{/}g;
                my $line = "$type $size $name\n";