X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fkdbx3.t;h=5fe53f7b820026fdc60ba1b9cf538bc49f0d6ac4;hp=847712d608db91a7e00c5f9255a253936f9a874d;hb=c98fc7d0294e641cf8844306808333bdec4fea2f;hpb=1d0a10e989a4d0487aa13cf4f56e533d3795469d

diff --git a/t/kdbx3.t b/t/kdbx3.t
index 847712d..5fe53f7 100644
--- a/t/kdbx3.t
+++ b/t/kdbx3.t
@@ -107,7 +107,7 @@ subtest 'Verify ProtectedStrings' => sub {
 
     $kdbx->unlock;
 
-    my ($entry) = @{$kdbx->all_entries};
+    my $entry = $kdbx->entries->next;
     is $entry->title, 'Sample Entry', 'Get entry title';
     is $entry->username, 'Protected User Name', 'Get protected username from entry';
     is $entry->password, 'ProtectedPassword', 'Get protected password from entry';