From ed4488f44846b488e077b3a2c6d8fc2ff7fb4dba Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
Date: Sat, 27 Apr 2019 10:32:14 +0200
Subject: [PATCH] create_config_file: don't accidentally skip rest of directory
scanning (fix for #72)
---
lib/Inline.pm | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lib/Inline.pm b/lib/Inline.pm
index b044f8f..8c732f6 100644
--- a/lib/Inline.pm
+++ b/lib/Inline.pm
@@ -843,7 +843,6 @@ sub create_config_file {
my ($lib, $mod, $register, %checked,
%languages, %types, %modules, %suffixes);
- LIB:
for my $lib (@INC) {
next unless -d File::Spec->catdir($lib,"Inline");
opendir LIB, File::Spec->catdir($lib,"Inline")
@@ -851,7 +850,7 @@ sub create_config_file {
while ($mod = readdir(LIB)) {
next unless $mod =~ /\.pm$/;
$mod =~ s/\.pm$//;
- next LIB if ($checked{$mod}++);
+ next if ($checked{$mod}++);
if ($mod eq 'Config') { # Skip Inline::Config
warn M14_usage_Config();
next;
