X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fsplain.PL;h=75b5e2f3f6117e0eadf2fdd373a33e204ac3be0d;hb=3bb63ce62db2f3ee2964b123e979675f768f552c;hp=ef7c457dda974d479397dfb1722a54bb751acfb0;hpb=44a8e56aa037ed0f03f0506f6f85f5ed290c78e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/splain.PL b/utils/splain.PL
index ef7c457..75b5e2f 100644
--- a/utils/splain.PL
+++ b/utils/splain.PL
@@ -15,6 +15,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 input file before creating output file.
 $IN = '../lib/diagnostics.pm';