From: Norton T. Allen <allen@huarp.harvard.edu>
Date: Fri, 6 Jul 2001 09:39:57 +0000 (-0400)
Subject: QNX patch extended for NTO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7438b6ad377f048a1bb02c1f44fe19331fe365b4;p=p5sagit%2Fp5-mst-13.2.git

QNX patch extended for NTO
Message-Id: <200107061339.JAA12582@bottesini.harvard.edu>

p4raw-id: //depot/perl@11177
---

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;