From f250397e0162635a712417e2927c4bb7b6e2f215 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Fri, 2 Aug 2013 22:47:56 +0100
Subject: [PATCH] Resolve File::Spec test failures on QNX Neutrino

---
 dist/Cwd/t/Spec.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/dist/Cwd/t/Spec.t b/dist/Cwd/t/Spec.t
index aed658d..99f83c4 100644
--- a/dist/Cwd/t/Spec.t
+++ b/dist/Cwd/t/Spec.t
@@ -92,7 +92,8 @@ my @tests = (
 [ "Unix->catdir('d1','d2','d3','')",    'd1/d2/d3'  ],
 [ "Unix->catdir('','d1','d2','d3')",    '/d1/d2/d3' ],
 [ "Unix->catdir('d1','d2','d3')",       'd1/d2/d3'  ],
-[ "Unix->catdir('/','d2/d3')",          '/d2/d3'    ],
+# QNX is POSIXly special
+[ "Unix->catdir('/','d2/d3')",          ( $^O =~ m!^(nto|qnx)! ? '//d2/d3' : '/d2/d3' ) ],
 
 [ "Unix->canonpath('///../../..//./././a//b/.././c/././')",   '/a/b/../c' ],
 [ "Unix->canonpath('')",                       ''               ],
-- 
2.7.4