In FindExt, eliminate _ext_ne() and make extensions() a simple subroutine.

Previously _ext_ne() was a generator function, and extensions() and
known_extensions() were generated by it. Now that known_extensions() has a
different implementation, extensions() was the last user of _ext_ne(), so
there's no saving by keeping the complexity.

1 files changed, 2 insertions, 7 deletions

diff --git a/win32/FindExt.pm b/win32/FindExt.pm
index 41065d244d..ea9e5571e9 100644
--- a/win32/FindExt.pm
+++ b/win32/FindExt.pm
@@ -84,15 +84,10 @@ sub _ext_eq {
 *static_ext = _ext_eq('static');
 *nonxs_ext = _ext_eq('nonxs');
 
-sub _ext_ne {
-    my $key = shift;
-    sub {
-        sort grep $ext{$_} ne $key, keys %ext;
-    }
+sub extensions {
+    sort grep $ext{$_} ne 'known', keys %ext;
 }
 
-*extensions = _ext_ne('known');
-
 sub known_extensions {
     sort keys %ext;
 }