diff options
author | Richard Levitte <levitte@openssl.org> | 2016-02-19 02:35:33 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-02-19 08:58:09 +0100 |
commit | 5be5e56c09015633d94fb1ee1290081a78074546 (patch) | |
tree | 93a8247354fc94d162a875d88ec63e2def74e254 | |
parent | 70ef905779dac29053256dd98c759f492073c39c (diff) |
VMS: rather use a quick file comparison than DIFF
VMS DIFF tries to calculate all the differences, which is slower than
just reading the files and stopping at the first difference. The
latter doesn't exist as a command, so the problem is solved with perl
and File::Compare (has been in core perl since very early version 5).
Reviewed-by: Viktor Dukhovni <viktor@openssl.org>
-rw-r--r-- | Configurations/descrip.mms.tmpl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Configurations/descrip.mms.tmpl b/Configurations/descrip.mms.tmpl index cdfeb77ab2..dd00fd3e45 100644 --- a/Configurations/descrip.mms.tmpl +++ b/Configurations/descrip.mms.tmpl @@ -260,10 +260,10 @@ descrip.mms : FORCE < descrip.mms > descrip.mms-new @ OPEN/APPEND DESCRIP descrip.mms-new @ WRITE DESCRIP "# DO NOT DELETE THIS LINE -- make depend depends on it." - @ {- join("\n\t", map { "IF F\$SEARCH(\"$_\") .NES. \"\" THEN TYPE $_ /OUTPUT=DESCRIP:" } @deps); -} + {- join("\n\t", map { "\@ IF F\$SEARCH(\"$_\") .NES. \"\" THEN TYPE $_ /OUTPUT=DESCRIP:" } @deps); -} @ CLOSE DESCRIP - @ DIFF/OUTPUT=NLA0: descrip.mms,descrip.mms-new - @ IF $SEVERITY .EQ. 3 THEN RENAME descrip.mms-new descrip.mms + @ PIPE ( $(PERL) -e "use File::Compare qw/compare_text/; my $x = compare_text(""descrip.mms"",""descrip.mms-new""); exit(0x10000000 + ($x == 0));" || - + RENAME descrip.mms-new descrip.mms ) @ IF F$SEARCH("descrip.mms-new") .NES. "" THEN DELETE descrip.mms-new;* -@ SPAWN/OUTPUT=NLA0: PURGE/NOLOG descrip.mms |