From 61c0c206f1e81b79c3d9bf6a93163ffbcdfbc167 Mon Sep 17 00:00:00 2001 From: Philip Newton Date: Sun, 1 Jul 2001 11:37:56 +0200 Subject: [PATCH] /^qnx|nto$/ --> /^(?:qnx|nto)$/ Message-Id: <200107010733.KAA03925@taas.iki.fi> p4raw-id: //depot/perl@11072 --- lib/ExtUtils/MM_Unix.pm | 2 +- lib/File/Spec/Unix.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.7.4