Ensure code version is >= schema version

liblime · Jun 10, 2011 · dc20c94 · dc20c94
1 parent 04740fe
commit dc20c94
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/C4/Context.pm b/C4/Context.pm
@@ -29,9 +29,12 @@ use File::Slurp;
 use C4::Boolean;
 use C4::Debug;
 use POSIX ();
+use Koha;
 
 $VERSION = '4.07.00.001';
 
+die "Version mismatch: $VERSION > $Koha::VERSION" if ($VERSION gt $Koha::VERSION);
+
 our $cache = CHI->new( driver => 'RawMemory', global => 1);
 
 if ($ENV{'HTTP_USER_AGENT'})	{