1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00

Use the 'Created by:' header option per default rather than the RCS only

header.

Suggested by:	adamw
Feature safe:	yes
This commit is contained in:
Emanuel Haupt 2012-10-30 10:17:53 +00:00
parent 9279048f31
commit 1f0745998b
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=306665

View File

@ -19,8 +19,9 @@ sub usage() {
my $bn=basename($0);
print(<< "_ENOUSAGE");
Usage: $bn [OPTION] PORT
-c use 'created by' header
-d use simple \$FreeBSD\$ RCS string header (default)
-c use 'created by' header (default)
-r use simple \$FreeBSD\$ RCS string header
(make sure the original creator is ok with this)
-h, --help this help
-n, --nowrite don't change file, just print what would be done
@ -43,7 +44,7 @@ sub get_creator($) {
MAIN: {
# get options
my $opt={};
GetOptions($opt, 'help|h', 'default|d', 'createdby|c', 'nowrite|n');
GetOptions($opt, 'help|h', 'rcsonly|r', 'createdby|c', 'nowrite|n');
if(defined($opt->{help})) {
usage();
@ -81,9 +82,9 @@ MAIN: {
}
# write new Makefile
if(defined($opt->{default}) || !defined($opt->{createdby})) {
if(defined($opt->{rcsonly})) {
print $outh "# \$FreeBSD\$\n";
} elsif(defined($opt->{createdby})) {
} elsif(defined($opt->{createdby}) || !defined($opt->{rcsonly})) {
my $creator=get_creator(\@header);
if(defined($creator)) {
print $outh "# Created by: $creator\n";