From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 2 Mar 2001 17:44:40 +0000 (-0600)
Subject: t/pod/find.t on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce3e10c2bc172c8eabb46e97884de9f9608395cd;p=p5sagit%2Fp5-mst-13.2.git

t/pod/find.t on VMS
Message-Id: <5.0.2.1.0.20010302172145.038d3c10@mail.mac.com>

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

diff --git a/t/pod/find.t b/t/pod/find.t
index 701490a..846b3ac 100644
--- a/t/pod/find.t
+++ b/t/pod/find.t
@@ -8,27 +8,6 @@ use Test;
 BEGIN { 
   plan tests => 4; 
   use File::Spec;
-  if ($^O eq 'VMS') {
-     # This magick is needed to make the VMS I/O system to believe
-     # that there's life after eight directory levels (this makes
-     # it believe there's life until sixteen levels).  The filesystem
-     # has no limitation as such.
-     $DEFAULT_DIR = $ENV{'DEFAULT'};
-     my $here = $DEFAULT_DIR;
-     my ($dev,$dir) = File::Spec->splitpath($here);
-     $dev =~ s/:$//;
-     $dev = $ENV{$dev} if exists($ENV{$dev});
-     $dev .= ':' if $dev !~ /:/;
-     $here = File::Spec->canonpath($dev.$dir);
-     $here =~ s/\]$/.]/;
-     system "define/nolog/job/trans=conceal temp_perl_base $here";
-     chdir('temp_perl_base:[000000]');
-  }
-}
-
-END {
-    chdir($DEFAULT_DIR) if $^O eq 'VMS';
-    system "deassign/job temp_perl_base";
 }
 
 use Pod::Find qw(pod_find pod_where);