__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use strict;
use warnings;
use Test::More tests => 4;
use Date::Parse qw(str2time);
# RT#57800 (GH#3): str2time fails on numeric m/d/yyyy dates before 1970
# str2time('5/1/1960') was returning undef with "Day too big" errors on
# 32-bit systems. Root cause: strptime extracts the 2-digit year (60) and
# stores century (19) separately. str2time must reconstruct the full 4-digit
# year before calling Time::Local to avoid the 2-digit year windowing heuristic
# mapping year 60 to 2060 instead of 1960.
{
my @cases = (
[ '5/1/1960', 1960, 5, 1, "m/d/yyyy May 1 1960" ],
[ '1/5/1960', 1960, 1, 5, "m/d/yyyy Jan 5 1960" ],
[ '12/31/1960', 1960, 12, 31, "m/d/yyyy Dec 31 1960" ],
[ '5/1/1901', 1901, 5, 1, "m/d/yyyy May 1 1901" ],
);
for my $c (@cases) {
my ($date, $expected_year, $expected_mon, $expected_day, $desc) = @$c;
SKIP: {
skip "pre-1970 dates on Win32", 1 if $^O eq 'MSWin32';
my $t = str2time($date);
if (!defined $t) {
fail("RT#57800: str2time('$date') returned undef");
next;
}
my @gm = gmtime($t);
my $got_year = 1900 + $gm[5];
is($got_year, $expected_year, "RT#57800: $desc parses to year $expected_year");
}
}
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| 00-report-prereqs.dd | File | 1.47 KB | 0644 |
|
| 00-report-prereqs.t | File | 5.88 KB | 0644 |
|
| cpanrt-format.t | File | 599 B | 0644 |
|
| cpanrt-language.t | File | 466 B | 0644 |
|
| cpanrt-overflow.t | File | 808 B | 0644 |
|
| cpanrt-parse.t | File | 5.07 KB | 0644 |
|
| cpanrt-zone.t | File | 4.03 KB | 0644 |
|
| date.t | File | 5 KB | 0644 |
|
| edge-cases.t | File | 8.93 KB | 0644 |
|
| format.t | File | 3.26 KB | 0644 |
|
| getdate.t | File | 7.62 KB | 0644 |
|
| gh10.t | File | 2.34 KB | 0644 |
|
| gh12.t | File | 1.13 KB | 0644 |
|
| lang-data.t | File | 10.29 KB | 0644 |
|
| lang-encoding.t | File | 1.19 KB | 0644 |
|
| lang.t | File | 479 B | 0644 |
|
| msk-tz.t | File | 594 B | 0644 |
|
| pod-valid.t | File | 436 B | 0644 |
|
| rt-format.t | File | 340 B | 0644 |
|
| rt-parse.t | File | 1.32 KB | 0644 |
|
| rt-timezone.t | File | 2.78 KB | 0644 |
|
| rt106105.t | File | 1.14 KB | 0644 |
|
| rt52387.t | File | 782 B | 0644 |
|
| rt57800.t | File | 1.29 KB | 0644 |
|
| str2time-epoch.t | File | 1.28 KB | 0644 |
|
| strptime-iso8601.t | File | 2.75 KB | 0644 |
|
| time2str-lang.t | File | 886 B | 0644 |
|
| tz-lang.t | File | 1.52 KB | 0644 |
|
| zone.t | File | 3.75 KB | 0644 |
|