Bug 37323: Tidy
Signed-off-by: David Cook <dcook@prosentient.com.au> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> (cherry picked from commit 579c28c764257a250c12aa11207772c074c1335e) Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
parent
df3ecb46ed
commit
8c948ee349
|
|
@ -215,11 +215,11 @@ sub handle_dir {
|
|||
my $dir_h;
|
||||
opendir $dir_h, $dir;
|
||||
while ( my $filename = readdir $dir_h ) {
|
||||
|
||||
if ( ($filename =~ m/datalink\.txt/i
|
||||
|| $filename =~ m/idlink\.txt/i ) && ( -e "$dir/$filename" && !-l "$dir/$filename")) {
|
||||
$file = Cwd::abs_path("$dir/$filename");
|
||||
}
|
||||
if ( ( $filename =~ m/datalink\.txt/i || $filename =~ m/idlink\.txt/i )
|
||||
&& ( -e "$dir/$filename" && !-l "$dir/$filename" ) )
|
||||
{
|
||||
$file = Cwd::abs_path("$dir/$filename");
|
||||
}
|
||||
}
|
||||
my $fh;
|
||||
unless ( open( $fh, '<', $file ) ) {
|
||||
|
|
|
|||
Loading…
Reference in New Issue