Change 10983 by jhi@alpha on 2001/06/27 11:48:56
Subject: [PATCH perl@10930] find.t hack for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 26 Jun 2001 23:40:25 -0500
Message-Id: <a05101000b75f10cdc80f@[192.168.56.145]>
Affected files ...
... //depot/perl/lib/File/Find/find.t#4 edit
Differences ...
==== //depot/perl/lib/File/Find/find.t#4 (xtext) ====
Index: perl/lib/File/Find/find.t
--- perl/lib/File/Find/find.t.~1~ Wed Jun 27 16:00:09 2001
+++ perl/lib/File/Find/find.t Wed Jun 27 16:00:09 2001
@@ -20,10 +20,10 @@
use File::Find;
use File::Spec;
-if ($^O eq 'MSWin32' || $^O eq 'cygwin')
+if ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'VMS')
{
- # This is a hack - at present File::Find does not produce native names on Win32
- # So force File::Spec to use Unix names.
+ # This is a hack - at present File::Find does not produce native names on
+ # Win32 or VMS, so force File::Spec to use Unix names.
require File::Spec::Unix;
@File::Spec::ISA = 'File::Spec::Unix';
}
@@ -146,6 +146,7 @@
print "# --preprocess--\n";
print "# \$File::Find::dir => '$File::Find::dir' \n";
foreach $file (@files) {
+ $file =~ s/\.(dir)?$// if $^O eq 'VMS';
print "# $file \n";
delete $Expect_Dir{ $File::Find::dir }->{$file};
}
@@ -168,7 +169,7 @@
# chdir, rmdir etc.
#
# dir_path() concatenates directory names to form a _relative_
-# directory path, independant from the platform it's run on, although
+# directory path, independent from the platform it's run on, although
# there are limitations. Don't try to create an absolute path,
# because that may fail on operating systems that have the concept of
# volume names (e.g. Mac OS). Be careful when you want to create an
@@ -225,7 +226,7 @@
#
# file_path() concatenates directory names (if any) and a filename to
# form a _relative_ file path (the last argument is assumed to be a
-# file). It's independant from the platform it's run on, although
+# file). It's independent from the platform it's run on, although
# there are limitations (see the warnings for dir_path() above). As a
# special case, you can pass it a "." as first argument, to create a
# file path like "./fa/file" on operating systems other than Mac OS
End of Patch.
