Test::ScriptAge -- routines relating to the age of Perl scripts
my $executable_epoch = Test::ScriptAge::our_modification_epoch();
print encode_utf8('This script was last modified at ' . localtime($executable_epoch) . "\n");
my $perl_epoch = Test::ScriptAge::perl_modification_epoch();
print encode_utf8('Perl was last modified at ' . localtime($perl_epoch) . "\n");Routines to calculated modification times of Perl scripts.
Calculate the time our Perl was last modified.
Calculate the time our scripts, including all libraries, was last modified.
Originally written by Felix Lechner <felix.lechner@lease-up.com> for Lintian.
lintian(1)