X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fsplain.PL;h=9c70b61afd545e70f6c6616ee9d97e0896b316c0;hb=59910b6dbc5bdf043d9f33f40bbbc9957f008770;hp=a638dbae717426efa87668137882763c2a4b96f4;hpb=8a5546a1774bc5278c3b557b5a3cac8da26aa636;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/splain.PL b/utils/splain.PL
index a638dba..9c70b61 100644
--- a/utils/splain.PL
+++ b/utils/splain.PL
@@ -2,6 +2,7 @@
 
 use Config;
 use File::Basename qw(&basename &dirname);
+use File::Spec;
 use Cwd;
 
 # List explicitly here the variables you want Configure to
@@ -20,7 +21,7 @@ $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
 # Open input file before creating output file.
-$IN = '../lib/diagnostics.pm';
+$IN = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm');
 open IN or die "Can't open $IN: $!\n";
 
 # Create output file.