Change 11177 by jhi@alpha on 2001/07/06 12:44:51
Subject: [PATCH lib/Cwd.pm] QNX patch extended for NTO
From: Norton Allen <[EMAIL PROTECTED]>
Date: Fri, 6 Jul 2001 09:39:57 -0400 (edt)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Cwd.pm#42 edit
Differences ...
==== //depot/perl/lib/Cwd.pm#42 (text) ====
Index: perl/lib/Cwd.pm
--- perl/lib/Cwd.pm.~1~ Fri Jul 6 06:45:10 2001
+++ perl/lib/Cwd.pm Fri Jul 6 06:45:10 2001
@@ -334,7 +334,7 @@
*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;
End of Patch.
