/^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 (file)
--- 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 (file)
--- 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