X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fpodchecker.PL;h=a7f96434ca68ac529eafdc36154ac4ee8bdb0021;hb=35f2feb095c3dd2b77eb6efc2bf725b5886b6931;hp=f7a820d0f7442b64371cb94140ea23f0dbc2df84;hpb=1d7c184104c076988718a01b77c8706aae05b092;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/podchecker.PL b/pod/podchecker.PL
index f7a820d..a7f9643 100644
--- a/pod/podchecker.PL
+++ b/pod/podchecker.PL
@@ -18,6 +18,7 @@ chdir(dirname($0));
 ($file = basename($0)) =~ s/\.PL$//;
 $file =~ s/\.pl$//
         if ($^O eq 'VMS' or $^O eq 'os2' or $^O eq 'dos');  # "case-forgiving"
+$file .= '.com' if $^O eq 'VMS';
 
 open OUT,">$file" or die "Can't create $file: $!";