From 17f010703c2bc6496585cfc717a55e243c482eca Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sat, 28 Sep 2024 21:08:00 +0200
Subject: [PATCH] use _source not fields

---
 lib/MetaCPAN/V0Shim.pm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lib/MetaCPAN/V0Shim.pm b/lib/MetaCPAN/V0Shim.pm
index fdcb9e3..98a6cfe 100644
--- a/lib/MetaCPAN/V0Shim.pm
+++ b/lib/MetaCPAN/V0Shim.pm
@@ -418,8 +418,12 @@ sub release_data {
         ],
       },
     },
-    _source => [ 'stat' ],
-    fields => [ 'download_url', 'status', 'version' ],
+    _source => [ qw(
+      download_url
+      stat
+      status
+      version
+    ) ],
   };
 
   my $ua = $self->ua;
@@ -437,10 +441,10 @@ sub release_data {
   my $hits = $data->{hits}{hits} || die $data;
 
   map +{
-    download_url => $_->{fields}{download_url},
-    status => $_->{fields}{status},
+    download_url => $_->{_sources}{download_url},
+    status => $_->{_source}{status},
     stat => $_->{_source}{stat},
-    version => $_->{fields}{version},
+    version => $_->{_source}{version},
   }, @$hits;
 }