X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vos%2Fconfigure_perl.cm;h=75d5823a4d706374d51b45afa425f0465021c829;hb=158b3652342ca691c9e3b061a1d78456ae1a9b4a;hp=49611f9a66129eb0651de725aa9e8e16e1be1d0e;hpb=5b8c1387d8b2fe34154451bb2cea5895305c0541;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vos/configure_perl.cm b/vos/configure_perl.cm
index 49611f9..75d5823 100644
--- a/vos/configure_perl.cm
+++ b/vos/configure_perl.cm
@@ -8,14 +8,21 @@
 &end_parameters
 &echo command_lines
 &
-&if (file_info config.&version&.def date_modified) > (file_info config.&version&.h date_modified)
+&if (file_info config.&version&.def date_modified) >= &+
+    (file_info config.&version&.h date_modified)
 &then &do
 !copy_file config.&version&.def config.def -delete
 &
-& NOTE: We must invoke Perl 5 not Perl 4. If necessary, edit the
-& next line to say "perl5 config.pl".
+& NOTE: We must invoke Perl 5 not Perl 4. The following
+& commands runs perl5 if it exists, otherwise runs perl,
+& in the hopes it is really perl5.
+&
+!attach_default_output (process_dir)>_where_perl ; &+
+     where_command perl5 ; detach_default_output
+&if (index (contents (process_dir)>_where_perl) 'perl5:') ^= 0
+&then !perl5 config.pl
+&else !perl  config.pl
 &
-!perl config.pl
 !rename config.h.new config.&version&.h -delete
 !delete_file config.def
 &end