blob: b2b05c3e711a788c8fd8fc90cc6ad900c6688946 (
plain)
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
|
From b04fcc43f602d865f9f5d4fdf90de47943e0027b Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Fri, 9 Jun 2017 10:19:57 +1200
Subject: [PATCH] Fix spec.PL for Perl 5.26 '.' removal from @INC
Perl 5.26 removes '.' from @INC, and this breaks the semantics
of <<do $file>> where $file was assumed to be loaded from '.',
but not explicitly stated, as 'do' is implemented using the same code
as "require", that is, assuming @INC traversal.
Inserting a leading "./" forces do to use a special-cased path
where @INC is not consulted.
Fixes RT#120697
Bug: https://rt.cpan.org/Ticket/Display.html?id=120697
---
perl-Sys-Virt.spec.PL | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl-Sys-Virt.spec.PL b/perl-Sys-Virt.spec.PL
index aa3f6fc..d2d687c 100644
--- a/perl-Sys-Virt.spec.PL
+++ b/perl-Sys-Virt.spec.PL
@@ -6,10 +6,10 @@ use strict;
die unless (scalar @ARGV == 1);
-unless (do 'lib/Sys/Virt.pm')
+unless (do './lib/Sys/Virt.pm')
{
if ($@) { die $@ };
- die "lib/Sys/Virt.pm: $!";
+ die "./lib/Sys/Virt.pm: $!";
}
local $/ = undef;
--
2.13.1
|
GitWeb
