From 562a7b0c67b6218259506760bd4728f2f0c6093b Mon Sep 17 00:00:00 2001
From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 17 Mar 1999 20:10:44 -0400
Subject: applied suggested patch, modulo superseded parts 	Message-id:
 <01J8YFGIHW2W001E7S@mail.newman.upenn.edu> 	Subject: [PATCH 5.005_56]
 Miscellaneous VMS-specific fixes

p4raw-id: //depot/perl@3153
---
 utils/perldoc.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils/perldoc.PL')

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 6d175f19a5..ed533f518f 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -326,7 +326,7 @@ foreach (@pages) {
 	unless ($opt_m) { 
 	    if ($Is_VMS) {
 		my($i,$trn);
-		for ($i = 0; $trn = $ENV{'DCL$PATH'.$i}; $i++) {
+		for ($i = 0; $trn = $ENV{'DCL$PATH;'.$i}; $i++) {
 		    push(@searchdirs,$trn);
 		}
 		push(@searchdirs,'perl_root:[lib.pod]')  # installed pods
-- 
cgit v1.2.1