svn commit: r308950 - head/Tools/scripts

[Eitan Adler]

Author: eadler
Date: Sat Dec 15 15:16:15 2012
New Revision: 308950
URL: http://svnweb.freebsd.org/changeset/ports/308950

Log:
  Teach convert-makefile-header about the mcom header line.
  Don't remove this when doing the conversion.

Modified:
  head/Tools/scripts/convert-makefile-header.pl

Modified: head/Tools/scripts/convert-makefile-header.pl
==============================================================================
--- head/Tools/scripts/convert-makefile-header.pl	Sat Dec 15 14:29:38 2012	(r308949)
+++ head/Tools/scripts/convert-makefile-header.pl	Sat Dec 15 15:16:15 2012	(r308950)
@@ -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) {