From 51110b72cd99967ff4cd4a7438b22861880651f6 Mon Sep 17 00:00:00 2001
From: eadler <eadler@FreeBSD.org>
Date: Sat, 15 Dec 2012 15:16:15 +0000
Subject: Teach convert-makefile-header about the mcom header line. Don't
 remove this when doing the conversion.

---
 Tools/scripts/convert-makefile-header.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'Tools/scripts')

diff --git a/Tools/scripts/convert-makefile-header.pl b/Tools/scripts/convert-makefile-header.pl
index db5414595268..8a97fdde3af2 100755
--- a/Tools/scripts/convert-makefile-header.pl
+++ b/Tools/scripts/convert-makefile-header.pl
@@ -41,6 +41,17 @@ sub get_creator($) {
 	return $creator;
 }
 
+sub get_mcom($) {
+	my $header=shift;
+	my $mcom;
+	for my $line (@$header) {
+		if ($line=~m'\$MCom:'i) {
+			return $line;
+		}
+	}
+	return "";
+}
+
 MAIN: {
 	# get options
 	my $opt={};
@@ -86,12 +97,14 @@ MAIN: {
 				print $outh "# \$FreeBSD\$\n";
 			} elsif(defined($opt->{createdby}) || !defined($opt->{rcsonly})) {
 				my $creator=get_creator(\@header);
+				my $mcom=get_mcom(\@header);
 				if(defined($creator)) {
 					print $outh "# Created by: $creator\n";
 				} else {
 					print STDERR "$mf creator not found. Reverting to RCS string only.\n";
 				}
 				print $outh "# \$FreeBSD\$\n";
+				print $outh $mcom;
 			}
 		
 			for my $line (@makefile) {
-- 
cgit