don't hard code the current year
This commit is contained in:
@@ -15,7 +15,7 @@
|
||||
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
||||
# PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
# $Id: update_copyrights,v 1.53 2009/01/06 23:47:57 tbox Exp $
|
||||
# $Id: update_copyrights,v 1.54 2009/06/12 04:04:38 marka Exp $
|
||||
|
||||
require 5.002;
|
||||
|
||||
@@ -56,6 +56,10 @@ my %file_years = ();
|
||||
my $years_list;
|
||||
my $parent;
|
||||
|
||||
($dummy,$dummy,$dummy,$dummy,$dummy,$this_year,$dummy,$dummy,$dummy) = localtime(time());
|
||||
$this_year += 1900;
|
||||
|
||||
|
||||
while (<>) {
|
||||
chomp;
|
||||
($file, $type, $years) = split(/\s+/);
|
||||
@@ -431,7 +435,7 @@ foreach $file (keys %file_types) {
|
||||
print TARGET "\n";
|
||||
}
|
||||
|
||||
if ($type eq "C" && $sysyears =~ /2009/) {
|
||||
if ($type eq "C" && $sysyears =~ /$this_year/) {
|
||||
my $body = "";
|
||||
while (<SOURCE>) {
|
||||
# Process leading white space.
|
||||
|
||||
Reference in New Issue
Block a user