···

       
136
       
136
       
 
       
        chomp $fs;

     

       
137
       
137
       
 
       
        my @fields = split / /, $fs;

     

       
138
       
138
       
 
       
        my $mountPoint = $fields[4];

     

       
139
       
139
       
-
       
        next unless -d $mountPoint;

     

       
140
       
139
       
 
       
        my @mountOptions = split /,/, $fields[5];

     

       
141
       
140
       
 
       


     

       
142
       
141
       
 
       
        # Skip the optional fields.

     
···

       
155
       
154
       
 
       


     

       
156
       
155
       
 
       
        # Is it better than our current match?

     

       
157
       
156
       
 
       
        if (length($mountPoint) > length($bestFs->mount)) {

     

       
157
       
157
       
+
       


     

       
158
       
158
       
+
       
            # -d performs a stat, which can hang forever on network file systems,

     

       
159
       
159
       
+
       
            # so we only make this call last, when it's likely that this is the mount point we need.

     

       
160
       
160
       
+
       
            next unless -d $mountPoint;

     

       
161
       
161
       
+
       


     

       
158
       
162
       
 
       
            $bestFs = Fs->new(device => $device, type => $fsType, mount => $mountPoint);

     

       
159
       
163
       
 
       
        }

     

       
160
       
164
       
 
       
    }