1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Description: Don't use (unpackaged) Devel::Deprecations::Environmental
This effectively reverts upstream commit 1d790a3.
Origin: vendor
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2023-03-11
--- a/lib/Number/Phone.pm
+++ b/lib/Number/Phone.pm
@@ -13,11 +13,6 @@
use Number::Phone::Data;
use Number::Phone::StubCountry;
-use Devel::Deprecations::Environmental
- Int32 => { unsupported_from => '2023-06-01' },
- OldPerl => { unsupported_from => '2022-11-08', older_than => '5.10.0' },
- OldPerl => { unsupported_from => '2023-01-08', older_than => '5.12.0' };
-
# MUST be in format N.NNNN, see https://github.com/DrHyde/perl-modules-Number-Phone/issues/58
our $VERSION = '3.9001';
@@ -30,6 +25,13 @@
}
}
+if(~0 == 4294967295) {
+ warn("Your perl only supports 32 bit ints; Number::Phone will require 64 bit ints from some time after 2023-06-01");
+}
+if($] < 5.012) {
+ warn("Your perl is too old to be fully supported. Support may be withdrawn at any time");
+}
+
sub _find_data_file {
my $wanted = shift;
--- a/t/inc/nptestutils.pm
+++ b/t/inc/nptestutils.pm
@@ -10,8 +10,8 @@
$SIG{__WARN__} = sub {
my $warning = join('', @_);
return if(
- $warning =~ /32 bit integers/ ||
- $warning =~ /Perl too old/ ||
+ $warning =~ /Your perl only supports 32 bit ints/ ||
+ $warning =~ /Your perl is too old to be fully supported/ ||
$warning =~ /^Devel::Hide/ ||
$warning =~ /^Can't locate.*\(hidden\)/
);
|
