aboutsummaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl/fixes/file_path_hurd_errno.diff
blob: ca5c51ab87b2fa3444a044c8efdf869658f6b1f0 (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
From e504c7f1978469462558090a1c5cc5c7e9e15ae6 Mon Sep 17 00:00:00 2001
From: Pino Toscano <pino@debian.org>
Date: Thu, 8 Sep 2016 10:26:59 +0100
Subject: [PATCH] File-Path: Fix test failure in Hurd due to hard-coded ENOENT

Patch-Name: fixes/file_path_hurd_errno.diff

---
 cpan/File-Path/t/Path.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cpan/File-Path/t/Path.t b/cpan/File-Path/t/Path.t
index fffc49c..956ca09 100644
--- a/cpan/File-Path/t/Path.t
+++ b/cpan/File-Path/t/Path.t
@@ -8,6 +8,7 @@ use Config;
 use Fcntl ':mode';
 use lib 't/';
 use FilePathTest;
+use Errno qw(:POSIX);
 
 BEGIN {
     use_ok('Cwd');
@@ -668,7 +669,7 @@ is(
 {
     my ($x, $message, $object, $expect, $rv, $arg, $error);
     my ($k, $v, $second_error, $third_error);
-    local $! = 2;
+    local $! = ENOENT;
     $x = $!;
 
     $message = 'message in a bottle';