Match suffixes of multisuffix files

prettier/shell-glob-files.pl

@@ -11,13 +11,22 @@
 open my $git, "-|", "git ls-files -z";
 {
   local $/ = "\0";
+  my $sought_extensions_re = '';
   while (my $file_with_path = <$git>) {
     chomp $file_with_path;
-    my ($path, $file, $ext) = ($file_with_path =~ m<(.*/|)(?:([^/.]+)(\.[^/]+))$>);
+    if ($sought_extensions_re eq '') {
+      my @sought_extensions = keys %supported_extensions;
+      @sought_extensions = map { s/([\\{}.\[\]])/\\$1/g; $_ } @sought_extensions;
+      $sought_extensions_re = join '|', @sought_extensions;
+      last if $sought_extensions_re eq '';
+    }
+    my ($path, $file) = ($file_with_path =~ m<(.*/|)([^/]+)$>);
     $path = "." if $path eq "";
     $path =~ s</$><>;
-    next unless defined $supported_extensions{$ext};
+    next unless $file =~ /($sought_extensions_re)$/;
+    my $ext = $1;
     $found_extensions{$ext} = 1;
+    delete $supported_extensions{$ext};
     $interesting_paths{$path} = 1;
   }
 }