From: Philip Newton <pne@cpan.org>
Date: Sun, 1 Jul 2001 09:37:56 +0000 (+0200)
Subject: /^qnx|nto$/ --> /^(?:qnx|nto)$/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61c0c206f1e81b79c3d9bf6a93163ffbcdfbc167;p=p5sagit%2Fp5-mst-13.2.git

/^qnx|nto$/ --> /^(?:qnx|nto)$/
Message-Id: <200107010733.KAA03925@taas.iki.fi>

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 5e06b16..d9946e4 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -84,7 +84,7 @@ sub canonpath {
     
     # Handle POSIX-style node names beginning with double slash
     my $node = '';
-    if ( $^O =~ m/^qnx|nto$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
+    if ( $^O =~ m/^(?:qnx|nto)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
       $node = $1;
     }
     $path =~ s|(?<=[^/])/+|/|g ;                   # xx////xx  -> xx/xx
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index bd4d77b..00899e7 100644
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -37,7 +37,7 @@ sub canonpath {
     
     # Handle POSIX-style node names beginning with double slash
     my $node = '';
-    if ( $^O =~ m/^qnx|nto$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
+    if ( $^O =~ m/^(?:qnx|nto)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
       $node = $1;
     }
     $path =~ s|/+|/|g unless($^O eq 'cygwin');     # xx////xx  -> xx/xx