|
Lines 121-127
Link Here
|
| 121 |
use warnings; |
121 |
use warnings; |
| 122 |
|
122 |
|
| 123 |
my $copyright_re = 'Copyright'; |
123 |
my $copyright_re = 'Copyright'; |
| 124 |
my $circle_c_re = '(?:\([cC]\)|@copyright{}|©)'; |
124 |
my $circle_c_re = '(?:\([cC]\)|@copyright\{\}|©)'; |
| 125 |
my $holder = $ENV{UPDATE_COPYRIGHT_HOLDER}; |
125 |
my $holder = $ENV{UPDATE_COPYRIGHT_HOLDER}; |
| 126 |
$holder ||= 'Free Software Foundation, Inc.'; |
126 |
$holder ||= 'Free Software Foundation, Inc.'; |
| 127 |
my $prefix_max = 5; |
127 |
my $prefix_max = 5; |
