From ed4488f44846b488e077b3a2c6d8fc2ff7fb4dba Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
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;