diff --git a/perl/p5-file-mimeinfo/Portfile b/perl/p5-file-mimeinfo/Portfile
index 2a003943396..2ba2d51716a 100644
--- a/perl/p5-file-mimeinfo/Portfile
+++ b/perl/p5-file-mimeinfo/Portfile
@@ -4,7 +4,7 @@ PortSystem          1.0
 PortGroup           perl5 1.0
 
 perl5.branches      5.28 5.30 5.32 5.34
-perl5.setup         File-MimeInfo 0.36 ../../authors/id/M/MI/MICHIELB
+perl5.setup         File-MimeInfo 0.37 ../../authors/id/M/MI/MICHIELB
 revision            0
 license             {Artistic-1 GPL}
 maintainers         nomaintainer
@@ -14,21 +14,14 @@ long_description    {*}${description}
 platforms           {darwin any}
 supported_archs     noarch
 
-checksums           rmd160  56230399641c5596f9b6d49d75ef8f2ed7a1abb1 \
-                    sha256  a90bff48cacc03f44e8e62f27d4db7385c5f9c7374f3b97b0b5cb5c2061790b8 \
-                    size    36906
+checksums           rmd160  a943ed58a9371782fcdc37ba8f27c404b021feef \
+                    sha256  13e5bbfdd36da8af198913a94ab067312947239020906577b6bf938219b2d06b \
+                    size    37763
 
 if {${perl5.major} != ""} {
     depends_lib-append \
                     port:p${perl5.major}-encode-locale \
                     port:p${perl5.major}-file-basedir \
                     port:p${perl5.major}-file-desktopentry \
-                    port:p${perl5.major}-path-tiny \
                     port:shared-mime-info
-
-    patchfiles      patch-lib-File-MimeInfo.pm.diff
-
-    post-patch {
-        reinplace "s|__PREFIX__|${prefix}|g" ${worksrcpath}/lib/File/MimeInfo.pm
-    }
 }
diff --git a/perl/p5-file-mimeinfo/files/patch-lib-File-MimeInfo.pm.diff b/perl/p5-file-mimeinfo/files/patch-lib-File-MimeInfo.pm.diff
deleted file mode 100644
index 753f4893b0d..00000000000
--- a/perl/p5-file-mimeinfo/files/patch-lib-File-MimeInfo.pm.diff
+++ /dev/null
@@ -1,22 +0,0 @@
---- lib/File/MimeInfo.pm.orig	2020-10-26 13:02:01.000000000 -0700
-+++ lib/File/MimeInfo.pm	2020-10-26 15:53:43.000000000 -0700
-@@ -145,6 +145,19 @@
- sub rehash {
-     (@globs, %literal, %extension, %mime2ext) = (); # clear all data
-     local $_; # limit scope of $_ ... :S
-+
-+    ## setup @DIRS to point to the DB that MacPorts installed,
-+    ## thus users don't have to set ENV vars and such.
-+    my $DIRS_index = undef;
-+    for ($DIRS_index = 0; $DIRS_index < @DIRS; $DIRS_index++) {
-+        if ($DIRS[$DIRS_index] =~ m|__PREFIX__/share/mime|) {
-+            last;
-+        }
-+    }
-+    if ($DIRS_index >= @DIRS) {
-+        ## we didn't find the MP prefix path, add it...
-+        push @DIRS, '__PREFIX__/share/mime';
-+    }
-     my @globfiles = @DIRS
-         ? ( grep {-e $_ && -r $_} map "$_/globs", @DIRS )
-         : ( reverse data_files('mime/globs')        );