Change 11072 by jhi@alpha on 2001/07/02 12:48:03
Subject: [PATCH perlsnap] /^qnx|nto$/ --> /^(?:qnx|nto)$/
From: "Philip Newton" <[EMAIL PROTECTED]>
Date: Sun, 1 Jul 2001 09:37:56 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/ExtUtils/MM_Unix.pm#102 edit
... //depot/perl/lib/File/Spec/Unix.pm#19 edit
Differences ...
==== //depot/perl/lib/ExtUtils/MM_Unix.pm#102 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm.~1~ Mon Jul 2 07:00:05 2001
+++ perl/lib/ExtUtils/MM_Unix.pm Mon Jul 2 07:00:05 2001
@@ -84,7 +84,7 @@
# 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
==== //depot/perl/lib/File/Spec/Unix.pm#19 (text) ====
Index: perl/lib/File/Spec/Unix.pm
--- perl/lib/File/Spec/Unix.pm.~1~ Mon Jul 2 07:00:05 2001
+++ perl/lib/File/Spec/Unix.pm Mon Jul 2 07:00:05 2001
@@ -37,7 +37,7 @@
# 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
End of Patch.
