From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 23 Oct 2007 03:43:02 +0000 (+0000)
Subject: File::Find::_find_dir nit for VMS, plus version bump.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d81018543234fe5f8d429eb7048c0b50792ea031;p=p5sagit%2Fp5-mst-13.2.git

File::Find::_find_dir nit for VMS, plus version bump.

p4raw-id: //depot/perl@32176
---

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 06fe587..c41c4dc 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -3,7 +3,7 @@ use 5.006;
 use strict;
 use warnings;
 use warnings::register;
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 require Exporter;
 require Cwd;
 
@@ -969,10 +969,13 @@ sub _find_dir($$$) {
 		if ($Is_MacOS) {
 		    $tmp = (':' x ($CdLvl-$Level)) . ':';
 		}
+		elsif ($Is_VMS) {
+		    $tmp = '[' . ('-' x ($CdLvl-$Level)) . ']';
+		}
 		else {
 		    $tmp = join('/',('..') x ($CdLvl-$Level));
 		}
-		die "Can't cd to $dir_name" . $tmp
+		die "Can't cd to $tmp from $dir_name"
 		    unless chdir ($tmp);
 		$CdLvl = $Level;
 	    }