projects/aports·blob master · refs

85 lines · 2.2 KiB

1Patch-Source: https://github.com/beanz/anyevent-mocktcpserver-perl/pull/1.patch
2--
3From 7d8d077445d48eba4b2aeaf37e269e7a12b729b9 Mon Sep 17 00:00:00 2001
4From: Graham Knop <[email protected]>
5Date: Sun, 27 Aug 2023 13:04:29 +0200
6Subject: [PATCH] remove unhandled import arguments
7
8Previous versions of perl allow a use or import call even if the import
9method doesn't exist. Future versions are intending to throw errors for
10calls to an undefined import method that includes arguments.
11
12Remove the arguments to use lines when the import method does not exist.
13---
14 t/01-simple.t | 2 +-
15 t/02-unexpected.t | 2 +-
16 t/03-two.t | 2 +-
17 t/04-timeout.t | 2 +-
18 t/05-error.t | 2 +-
19 5 files changed, 5 insertions(+), 5 deletions(-)
20
21diff --git a/t/01-simple.t b/t/01-simple.t
22index 26651de..019dfbc 100644
23--- a/t/01-simple.t
24+++ b/t/01-simple.t
25@@ -8,7 +8,7 @@ use constant {
26 };
27 use Test::More;
28 use AnyEvent::Socket;
29-use AnyEvent::MockTCPServer qw/:all/;
30+use AnyEvent::MockTCPServer;
31
32 my $done = AnyEvent->condvar;
33 my $server;
34diff --git a/t/02-unexpected.t b/t/02-unexpected.t
35index c6a5c4e..95d098b 100644
36--- a/t/02-unexpected.t
37+++ b/t/02-unexpected.t
38@@ -11,7 +11,7 @@ BEGIN {
39 }
40 use Test::More;
41 use AnyEvent::Socket;
42-use AnyEvent::MockTCPServer qw/:all/;
43+use AnyEvent::MockTCPServer;
44
45 my $done = AnyEvent->condvar;
46 my $server;
47diff --git a/t/03-two.t b/t/03-two.t
48index 792f721..c2cedc3 100644
49--- a/t/03-two.t
50+++ b/t/03-two.t
51@@ -8,7 +8,7 @@ use constant {
52 };
53 use Test::More;
54 use AnyEvent::Socket;
55-use AnyEvent::MockTCPServer qw/:all/;
56+use AnyEvent::MockTCPServer;
57
58 my $done = AnyEvent->condvar;
59 my $done2 = AnyEvent->condvar;
60diff --git a/t/04-timeout.t b/t/04-timeout.t
61index 5e6bfd1..e5afe40 100644
62--- a/t/04-timeout.t
63+++ b/t/04-timeout.t
64@@ -11,7 +11,7 @@ BEGIN {
65 }
66 use Test::More;
67 use AnyEvent::Socket;
68-use AnyEvent::MockTCPServer qw/:all/;
69+use AnyEvent::MockTCPServer;
70
71 my $done = AnyEvent->condvar;
72 my $server;
73diff --git a/t/05-error.t b/t/05-error.t
74index 8f45798..98d3a30 100644
75--- a/t/05-error.t
76+++ b/t/05-error.t
77@@ -11,7 +11,7 @@ BEGIN {
78 }
79 use Test::More;
80 use AnyEvent::Socket;
81-use AnyEvent::MockTCPServer qw/:all/;
82+use AnyEvent::MockTCPServer;
83
84 my $done = AnyEvent->condvar;
85 my $server;