[patch] Lib/File/Path.t (post 5.8.9) catdir used instead of catfile

[email protected] ("John E. Malmberg") Sat, 06 Dec 2008 16:24:26 -0600

Newsgroups	perl.perl5.porters,perl.vmsperl
Message-ID	<[email protected]>

In the test to see what happens if you try to create a file with the 
same name as a directory, catdir is used to create the file 
specification instead of catfile.

The operation is expected to fail usually.

However on VMS, directories and files can appear to have the same name, 
especially when VMS is reporting filenames in Unix syntax.

So this test should be skipped on VMS.

-John
[email protected]
Personal Opinion Only

file_path_t.gdiff (text/plain, 534 B)

--- /rsync_root/perl/lib/File/Path.t	Thu Dec  4 15:49:40 2008
+++ lib/File/Path.t	Sat Dec  6 03:40:52 2008
@@ -341,7 +341,9 @@
 
 # see what happens if a file exists where we want a directory
 SKIP: {
-    my $entry = catdir($tmp_base, "file");
+    my $entry = catfile($tmp_base, "file");
+    skip "VMS can have a file and a directory with the same name.", 4
+        if $Is_VMS;
     skip "Cannot create $entry", 4 unless open OUT, "> $entry";
     print OUT "test file, safe to delete\n", scalar(localtime), "\n";
     close OUT;