applied suggested patch, modulo superseded parts

[p5sagit/p5-mst-13.2.git] / utils / perldoc.PL

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 6d175f1..ed533f5 100644 (file)
--- 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