QNX patch extended for NTO
Norton T. Allen [Fri, 6 Jul 2001 09:39:57 +0000 (05:39 -0400)]
Message-Id: <200107061339.JAA12582@bottesini.harvard.edu>

p4raw-id: //depot/perl@11177

lib/Cwd.pm

index 632931b..7192665 100644 (file)
@@ -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;