From e005d4a1bcba38408e2f8bef5b44e23e284f01bb Mon Sep 17 00:00:00 2001
From: Charles McGarvey <ccm@cpan.org>
Date: Wed, 11 May 2022 17:17:55 -0600
Subject: [PATCH] Release File-KDBX 0.903

  * Fixed parsing KDBX4 datetimes on 32-bit perls.
  * Fixed broken tests on perls < 5.14.
---
 Changes   |  2 ++
 README.md | 12 +++++-------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 3d5f759..ec16232 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@ Revision history for File-KDBX.
 
 {{$NEXT}}
 
+0.903     2022-05-11 17:17:13-0600
+
   * Fixed parsing KDBX4 datetimes on 32-bit perls.
   * Fixed broken tests on perls < 5.14.
 
diff --git a/README.md b/README.md
index defdf98..3b25919 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@ File::KDBX - Encrypted database to store secret text and files
 
 # VERSION
 
-version 0.902
+version 0.903
 
 # SYNOPSIS
 
@@ -29,14 +29,13 @@ my $entry = $group->add_entry(
 );
 
 # Save the database to the filesystem
-$kdbx->dump_file('passwords.kdbx', 'M@st3rP@ssw0rd!');
+$kdbx->dump_file('passwords.kdbx', 'masterpw changeme');
 
 # Load the database from the filesystem into a new database instance
-my $kdbx2 = File::KDBX->load_file('passwords.kdbx', 'M@st3rP@ssw0rd!');
+my $kdbx2 = File::KDBX->load_file('passwords.kdbx', 'masterpw changeme');
 
 # Iterate over database entries, print entry titles
-$kdbx2->entries->each(sub {
-    my ($entry) = @_;
+$kdbx2->entries->each(sub($entry, @) {
     say 'Entry: ', $entry->title;
 });
 ```
@@ -964,8 +963,7 @@ $kdbx->dump_file('mypasswords.kdbx', 'master password CHANGEME');
 my $kdbx = File::KDBX->load_file('mypasswords.kdbx', 'master password CHANGEME');
 $kdbx->unlock;  # cause $entry->password below to be defined
 
-$kdbx->entries->each(sub {
-    my ($entry) = @_;
+$kdbx->entries->each(sub($entry, @) {
     say 'Found password for: ', $entry->title;
     say '  Username: ', $entry->username;
     say '  Password: ', $entry->password;
-- 
2.45.2