|
Lines 215-225
sub handle_dir {
Link Here
|
| 215 |
my $dir_h; |
215 |
my $dir_h; |
| 216 |
opendir $dir_h, $dir; |
216 |
opendir $dir_h, $dir; |
| 217 |
while ( my $filename = readdir $dir_h ) { |
217 |
while ( my $filename = readdir $dir_h ) { |
| 218 |
|
218 |
if ( ( $filename =~ m/datalink\.txt/i || $filename =~ m/idlink\.txt/i ) |
| 219 |
if ( ($filename =~ m/datalink\.txt/i |
219 |
&& ( -e "$dir/$filename" && !-l "$dir/$filename" ) ) |
| 220 |
|| $filename =~ m/idlink\.txt/i ) && ( -e "$dir/$filename" && !-l "$dir/$filename")) { |
220 |
{ |
| 221 |
$file = Cwd::abs_path("$dir/$filename"); |
221 |
$file = Cwd::abs_path("$dir/$filename"); |
| 222 |
} |
222 |
} |
| 223 |
} |
223 |
} |
| 224 |
my $fh; |
224 |
my $fh; |
| 225 |
unless ( open( $fh, '<', $file ) ) { |
225 |
unless ( open( $fh, '<', $file ) ) { |
| 226 |
- |
|
|