use File::Copy ();
use File::Path ();
use File::Spec;
+use POSIX ();
use IPC::Cmd ();
use Parse::CPAN::Meta ();
$default_keywords = [ 'x86' ] unless defined $default_keywords;
$default_distdir = '/usr/portage/distfiles' unless defined $default_distdir;
+ my $timestamp = CPANPLUS::Dist::Gentoo::Maps::get_portage_timestamp(
+ $main_portdir
+ );
+ if (defined $timestamp) {
+ __PACKAGE__->_notify("Portage tree $main_portdir dates back from UNIX timestamp $timestamp");
+ } else {
+ __PACKAGE__->_notify("Unable to get timestamp for portage tree $main_portdir, using gmtime instead");
+ $timestamp = POSIX::mktime(gmtime);
+ }
+ if ($timestamp < CPANPLUS::Dist::Gentoo::Maps::TIMESTAMP) {
+ __PACKAGE__->_abort("Portage tree too old (please run emerge --sync and retry)");
+ return $format_available = 0;
+ }
+
return $format_available = 1;
}
=head1 COPYRIGHT & LICENSE
-Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010,2011,2012 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.