From 811329b1e57b485f2095f27259559d77e7fa7ed8 Mon Sep 17 00:00:00 2001
From: Max Horn <max@quendi.de>
Date: Fri, 7 Sep 2018 10:02:08 +0200
Subject: [PATCH] Validate PackageInfo.g when loading packages

This helps package authors notice earlier if a package update
they made failed.
---
 lib/package.gi | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/package.gi b/lib/package.gi
index db61cfdbdf..34cb5b5b4d 100644
--- a/lib/package.gi
+++ b/lib/package.gi
@@ -1578,6 +1578,10 @@ InstallGlobalFunction( LoadPackage, function( arg )
         info:= First( PackageInfo( pkgname ),
                       r -> r.InstallationPath = paths[2][ pos ][1] );
 
+        if not ValidatePackageInfo(info) then
+           Print("#E Validation of package ", pkgname, " from ", info.InstallationPath, " failed\n");
+        fi;
+
         # Notify the documentation (for the available version).
         LoadPackageDocumentation( info );