Avoid potentially empty struct.

[p5sagit/p5-mst-13.2.git] / vos / configure_perl.cm

diff --git a/vos/configure_perl.cm b/vos/configure_perl.cm
index 49611f9..75d5823 100644 (file)
--- 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