Make the gengentooisms script dies if the timestamp cannot be fetched

[perl/modules/CPANPLUS-Dist-Gentoo.git] / samples / gengentooisms

diff --git a/samples/gengentooisms b/samples/gengentooisms
index a1482d10d05daf8c3761865420bfbbc27e81bb19..0c39c00ddce471865d57e1c9a1874a4bec0d0d51 100755 (executable)
--- a/samples/gengentooisms
+++ b/samples/gengentooisms
@@ -44,6 +44,8 @@ sub p {
 }
 
 my $timestamp = CPANPLUS::Dist::Gentoo::Maps::get_portage_timestamp(PORTAGE);
+die 'Could not read the timestamp from the portage tree ' . PORTAGE . "\n"
+                                                      unless defined $timestamp;
 
 {
  my $ua;