fix upid parser for long uptimes

[pve-common.git] / data / PVE / PodParser.pm

diff --git a/data/PVE/PodParser.pm b/data/PVE/PodParser.pm
index 318b11117232655e0ca111326779b09856c2a1be..7e31e1957e71c42a542c9ae1eb7ab76eb91b7af1 100644 (file)
--- a/data/PVE/PodParser.pm
+++ b/data/PVE/PodParser.pm
@@ -1,14 +1,17 @@
 package PVE::PodParser;
 
 use strict;
+use warnings;
 use Pod::Parser;
 use base qw(Pod::Parser);
 
+my $currentYear = (localtime(time))[5] + 1900;
+
 my $stdinclude = {
     pve_copyright => <<EODATA,
 \=head1 COPYRIGHT AND DISCLAIMER
 
-Copyright (C) 2007-2011 Proxmox Server Solutions GmbH
+Copyright (C) 2007-$currentYear Proxmox Server Solutions GmbH
 
 This program is free software: you can redistribute it and\/or modify
 it under the terms of the GNU Affero General Public License as