percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 07:30:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge 2.1.9, including its s/Percona Inc/Percona Ireland Ltd/ changes.

Browse Source
This commit is contained in:
Daniel Nichter
2013-03-14 10:58:03 -06:00
parent 3f4eb234df
commit de7b8ca0e5
45 changed files with 166 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
util/new-copyright-year
View File

@@ -6,21 +6,21 @@ use English qw(-no_match_vars);
eval {
my ($year, $copyright) = @ARGV;
my ($years) = $copyright =~ m/(\S+) Percona Inc./;
my ($years) = $copyright =~ m/(\S+) Percona Ireland Ltd/;
my ($first_year, $last_year) = split /-/, $years;
my $new_copyright;
if ( $first_year && $last_year ) {
$new_copyright = "$first_year-$year Percona Inc."
$new_copyright = "$first_year-$year Percona Ireland Ltd"
}
elsif ( $first_year < $year ) {
$new_copyright = "$first_year-$year Percona Inc."
$new_copyright = "$first_year-$year Percona Ireland Ltd"
}
else {
$new_copyright = "$first_year Percona Inc."
$new_copyright = "$first_year Percona Ireland Ltd"
}
$copyright =~ s/\S+ Percona Inc./$new_copyright/;
$copyright =~ s/\S+ Percona Ireland Ltd/$new_copyright/;
print $copyright;
};
die $EVAL_ERROR if $EVAL_ERROR;