From 7fcca420ba56df0ce0bdf3f60c6ebc577f188b53 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Wed, 31 Mar 2021 06:23:36 +0900
Subject: [PATCH] Apply a patch for t/rt_73787_exponential_buffer_overflow.t
 (Tux++) #64

---
 t/rt_73787_exponential_buffer_overflow.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/rt_73787_exponential_buffer_overflow.t b/t/rt_73787_exponential_buffer_overflow.t
index ce571bb..00de981 100644
--- a/t/rt_73787_exponential_buffer_overflow.t
+++ b/t/rt_73787_exponential_buffer_overflow.t
@@ -8,7 +8,7 @@ use if -d ".git", "Test::FailWarnings";
 my $dbh = connect_ok(sqlite_see_if_its_a_number => 1);
 $dbh->do('create table foo (id integer primary key, exp)');
 my $ct = 0;
-for my $value (qw/2e100 10.04e100/) {
+for my $value (qw/2e1000 10.04e1000/) {
     eval {
         $dbh->do('insert into foo values (?, ?)', undef, $ct++, $value);
         my $got = $dbh->selectrow_arrayref('select * from foo where exp = ?', undef, $value);