view release on metacpan or  search on metacpan

lib/Module/DevAid.pm  view on Meta::CPAN

    return $new_changes;
} # get_new_svk_changes

=head2 update_changes_file

Called by do_release.  Overwrites the changes file and commits
the change. (uses get_changes_content)

=cut

sub update_changes_file {
    my $self = shift;
    my $old_version = shift;
    my $version = shift;

    my $changes_str = $self->get_changes_content($old_version, $version);
    my $changes_file = $self->{changes_file};
    if (open(OCFILE, ">${changes_file}"))
    {
	print OCFILE $changes_str;
	close(OCFILE);