Date: Sat, 15 Dec 2012 15:16:16 +0000 (UTC) From: Eitan Adler <eadler@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r308950 - head/Tools/scripts Message-ID: <201212151516.qBFFGGIB085578@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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) {
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201212151516.qBFFGGIB085578>