From 7438b6ad377f048a1bb02c1f44fe19331fe365b4 Mon Sep 17 00:00:00 2001
From: "Norton T. Allen" <allen@huarp.harvard.edu>
Date: Fri, 6 Jul 2001 05:39:57 -0400
Subject: [PATCH] QNX patch extended for NTO Message-Id:
 <200107061339.JAA12582@bottesini.harvard.edu>

p4raw-id: //depot/perl@11177
---
 lib/Cwd.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 632931b..7192665 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -334,7 +334,7 @@ sub _epoc_cwd {
         *fastcwd	= \&_dos_cwd;
         *abs_path	= \&fast_abs_path;
     }
-    elsif ($^O eq 'qnx') {
+    elsif ($^O =~ m/^(?:qnx|nto)$/ ) {
         *cwd		= \&_qnx_cwd;
         *getcwd		= \&_qnx_cwd;
         *fastgetcwd	= \&_qnx_cwd;
-- 
2.7.4