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 (file)
--- 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;