view release on metacpan or  search on metacpan

lib/LCFG/Build/VCS.pm  view on Meta::CPAN

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
        }
 
    }
 
    $tag =~ s/\./_/g;
    $tag =~ s/\-/_/g;
 
    return $tag;
}
 
sub update_changelog {
    my ( $self, $version, $options ) = @_;
    $options //= {};
 
    $options->{dryrun}  = $self->dryrun;
    $options->{id}      = $self->id;
    $options->{version} = $version;
    $options->{style} ||= 'default';
 
    my $dir = $self->workdir;

lib/LCFG/Build/VCS.pm  view on Meta::CPAN

195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
 
    if ( !$self->dryrun ) {
        if ($needs_add) {
            $self->run_cmd( 'add', $logfile );
        }
    }
 
    return;
}
 
sub update_lcfg_changelog {
    my ( $logfile, $options ) = @_;
    $options //= {};
 
    $options->{date} ||= DateTime->now->ymd;
 
    my $dir = (File::Spec->splitpath($logfile))[1];
 
    my $tmplog = File::Temp->new(
        TEMPLATE => 'lcfgXXXXXX',
        UNLINK   => 1,

lib/LCFG/Build/VCS.pm  view on Meta::CPAN

244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
          or die "Could not rename $tmpname as $logfile: $!\n";
    }
 
    return;
}
 
# These update_*_changelog subroutines are also used externally from
# places which do not have access to the VCS object so they are not
# class methods.
 
sub update_debian_changelog {
    my ( $logfile, $options ) = @_;
    $options //= {};
 
    $options->{urgency}      ||= 'low';
    $options->{distribution} ||= 'unstable';
    $options->{release}      //= 1;
    $options->{message}      ||= 'New upstream release';
 
    # RFC822 date
    $options->{date} = DateTime->now->strftime('%a, %d %b %Y %H:%M:%S %z');