Skip to content

Commit

Permalink
Switch out glob for bsd_glog because it's being removed in newer perl…
Browse files Browse the repository at this point in the history
… versions this fixes ESCOMP#1550
  • Loading branch information
ekluzek committed Dec 9, 2021
1 parent 9963e46 commit 4c1b355
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions tools/mksurfdata_map/src/Mkdepends
Original file line number Diff line number Diff line change
Expand Up @@ -35,6 +35,7 @@

use Getopt::Std;
use File::Basename;
use File::Glob ':bsd_glob';

# Check for usage request.
@ARGV >= 2 or usage();
Expand All @@ -61,7 +62,7 @@ chomp @file_paths;
unshift(@file_paths,'.');
foreach $dir (@file_paths) { # (could check that directories exist here)
$dir =~ s!/?\s*$!!; # remove / and any whitespace at end of directory name
($dir) = glob $dir; # Expand tildes in path names.
($dir) = bsd_glob $dir; # Expand tildes in path names.
}

# Make list of files containing source code.
Expand Down Expand Up @@ -91,7 +92,7 @@ my ($dir);
my ($f, $name, $path, $suffix, $mod);
my @suffixes = ('\.mod' );
foreach $dir (@file_paths) {
@filenames = (glob("$dir/*.mod"));
@filenames = (bsd_glob("$dir/*.mod"));
foreach $f (@filenames) {
($name, $path, $suffix) = fileparse($f, @suffixes);
($mod = $name) =~ tr/a-z/A-Z/;
Expand Down

0 comments on commit 4c1b355

Please sign in to comment.