view release on metacpan or  search on metacpan

t/sandbox/usr/portage/app-portage/gentoolkit/files/scripts/echangelog  view on Meta::CPAN

				/$1\n\n$entry\n\n/sx
		or die "Failed to insert new entry (3)\n";
} else {
	# Insert at the top with a new version marker
	$text =~ s/^( .*? )				  # grab header
				\s*\n(?=\ \ \d|\*|\z) # suck up trailing whitespace
				/$1\n\n*$version ($date)\n\n$entry\n\n/sx
		or die "Failed to insert new entry (4)\n";
}

sub update_copyright {
	my ($t) = @_;
	my ($year) = strftime('%Y', localtime);
	$t =~ s/^# Copyright \d+(?= )/$&-$year/m or
	$t =~ s/^(# Copyright \d+)-(\d+)/$1-$year/m;
	return $t;
}

# Update the copyright year in the ChangeLog
$text = update_copyright($text);