diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-02-14 12:50:09 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-02-14 12:50:09 +0100 |
| commit | 5e996821c29bcba17d58752b6a65e0cb9eaef7f9 (patch) | |
| tree | c1c83113dcfcf66d3ec3f5a3131b3b4ccaed3fb9 /SBO-Lib | |
| parent | 2eea123715309ebfb8d39691a1bb35a8306360bd (diff) | |
| download | sbotools2-5e996821c29bcba17d58752b6a65e0cb9eaef7f9.tar.xz | |
Change a diamond glob to an explicit glob()
Diffstat (limited to 'SBO-Lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index e380e25..22279e0 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -394,7 +394,7 @@ sub get_installed_packages { my @installed; my $regex = qr#/([^/]+)-([^-]+)-[^-]+-([^-]+)$#; - for my $path (<$pkg_db/*>) { + for my $path (glob("$pkg_db/*")) { if (my ($name, $version, $build) = ($path =~ $regex)[0,1,2]) { # valid types: STD, SBO my $type = 'STD'; |