App-Perl-Module-CopyrightYears
view release on metacpan or search on metacpan
CopyrightYears.pm view on Meta::CPAN
# Change copyright years in LICENSE file.
my @licenses = $self->_files('.', 'LICENSE*');
foreach my $license (@licenses) {
if (defined $license && -r $license) {
my @license = slurp($license);
my $opts_hr = {
'prefix_glob' => '.*\(c\)\s+',
};
my $update_file = 0;
foreach (my $i = 0; $i < @license; $i++) {
my $updated = update_years($license[$i], $opts_hr,
$self->{'_opts'}->{'y'});
if ($updated) {
$license[$i] = $updated;
$update_file = 1;
}
}
if ($update_file) {
barf($license, (join '', @license));
}
}
}
# Look for scripts with copyright years.
( run in 0.276 second using v1.01-cache-2.11-cpan-05444aca049 )