fix Pod::Html to recognize C<< > >> etc., and convert some pods

[p5sagit/p5-mst-13.2.git] / pod / podchecker.PL

diff --git a/pod/podchecker.PL b/pod/podchecker.PL
index f7a820d..a7f9643 100644 (file)
--- 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: $!";