From c28ea82f87c165e02529a7bf1b8a1cfecb1cfe5b Mon Sep 17 00:00:00 2001
From: Muz <muz@users.noreply.github.com>
Date: Mon, 12 Jan 2026 22:51:52 -0600
Subject: [PATCH] [dev] remove outdated legacy gen_types_list.pl (#14145)

---
 Mage.Sets/src/mage/cards/b/BogGnarr.java |  2 +-
 Utils/gen_types_list.pl                  | 58 ------------------------
 2 files changed, 1 insertion(+), 59 deletions(-)
 delete mode 100644 Utils/gen_types_list.pl

diff --git a/Mage.Sets/src/mage/cards/b/BogGnarr.java b/Mage.Sets/src/mage/cards/b/BogGnarr.java
index 3fa54cc1d07..338099eece5 100644
--- a/Mage.Sets/src/mage/cards/b/BogGnarr.java
+++ b/Mage.Sets/src/mage/cards/b/BogGnarr.java
@@ -28,7 +28,7 @@ public final class BogGnarr extends CardImpl {
 
     public BogGnarr(UUID ownerId, CardSetInfo setInfo) {
         super(ownerId,setInfo,new CardType[]{CardType.CREATURE},"{4}{G}");
-        this.subtype.add( SubType.BEAST);
+        this.subtype.add(SubType.BEAST);
 
         this.power = new MageInt(2);
         this.toughness = new MageInt(2);
diff --git a/Utils/gen_types_list.pl b/Utils/gen_types_list.pl
deleted file mode 100644
index c4ad0aa8a87..00000000000
--- a/Utils/gen_types_list.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl -w
-
-##
-#  File: gen_types_list.pl
-#  Author: spjspj
-#  Purpose: To open all card java files and count all subtypes/supertypes
-#  Purpose: Ones with unique spellings are possibly incorrect!
-##
-
-use strict;
-use Scalar::Util qw(looks_like_number);
-
-my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\ | find \".java\" |";
-
-open (DIR_LISTING, "$dir_listing");
-my %types;
-my %types_files;
-
-while (<DIR_LISTING>)
-{
-    chomp;
-    my $file = $_;
-
-    my $name = "";
-    my $cardNum = "";
-
-    open (JAVA_FILE, "$file");
-
-    while (<JAVA_FILE>)
-    {
-        chomp;
-        
-        # Eg: this.subtype.add("Human");
-        my $line = $_;
-        if ($line =~ m/this.subtype.add.*"([^"]*)".;/)
-        {
-            $types{$1}++;
-            $types_files{$1} .= $file . ",,,";
-        }
-        if ($line =~ m/addSuperType.*"([^"]*)"/)
-        {
-            $types{$1}++;
-            $types_files{$1} .= $file . ",,,";
-        }
-   }
-
-    close (JAVA_FILE);
-}
-my $key;
-foreach $key (sort keys (%types))
-{
-    print ("$types{$key} = $key  .... ");
-    if ($types{$key} < 10)
-    {
-        print ("    In files:$types_files{$key}");
-    }
-    print ("\n");
-}