diff options
Diffstat (limited to 'pod/pod2html.PL')
| -rw-r--r-- | pod/pod2html.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pod/pod2html.PL b/pod/pod2html.PL index 816fb6ba4c..602a866e42 100644 --- a/pod/pod2html.PL +++ b/pod/pod2html.PL @@ -14,6 +14,7 @@ use File::Basename qw(&basename &dirname); # This is so that make depend always knows where to find PL derivatives. chdir dirname($0); $file = basename($0, '.PL'); +$file .= '.com' if $^O eq 'VMS'; open OUT,">$file" or die "Can't create $file: $!"; @@ -502,7 +503,7 @@ sub gensym { sub pre_escapes { # twiddle these, and stay up late :-) my($thing) = @_; for ($$thing) { - s/([\200-\377])/noremap("&".ord($1).";")/ge; + s/([\200-\377])/noremap("&#".ord($1).";")/ge; s/"(.*?)"/``$1''/gs; s/&/noremap("&")/ge; s/<</noremap("<<")/eg; |