From 7cec31949b199f7cc2874a34920b553d3d6b081d Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Fri, 24 Nov 2023 00:44:25 +0100
Subject: [PATCH] Parse years before 1900

They could be produced by e.g. subtracting something from 1900-01-01,
but parsing year < 1900 failed.

Also add a test to verify it works.

Fixes #56.
---
 Piece.xs   | 2 --
 t/02core.t | 7 ++++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Piece.xs b/Piece.xs
index 8164cdd..388c8bb 100644
--- a/Piece.xs
+++ b/Piece.xs
@@ -793,8 +793,6 @@ label:
 				i -= 1900;
 			if (c == 'y' && i < 69)
 				i += 100;
-			if (i < 0)
-				return 0;
 
 			tm->tm_year = i;
 
diff --git a/t/02core.t b/t/02core.t
index 8de1426..96a229b 100644
--- a/t/02core.t
+++ b/t/02core.t
@@ -1,4 +1,4 @@
-use Test::More tests => 100;
+use Test::More tests => 101;
 
 my $is_win32 = ($^O =~ /Win32/);
 my $is_qnx = ($^O eq 'qnx');
@@ -219,6 +219,11 @@ cmp_ok(
   951827696
 );
 
+is(
+  eval { Time::Piece->strptime('1899-12-31', '%Y-%m-%d')->epoch() } || $@,
+  Time::Piece->strptime('1900-01-01', '%Y-%m-%d')->epoch - Time::Seconds::ONE_DAY,
+  'before 1900'
+);
 
 my $s = Time::Seconds->new(-691050);
 is($s->pretty, 'minus 7 days, 23 hours, 57 minutes, 30 seconds');