diff --git a/modules/database/src/tools/DBD/Breaktable.pm b/modules/database/src/tools/DBD/Breaktable.pm
index 4b972dcd1..370c79ee4 100644
--- a/modules/database/src/tools/DBD/Breaktable.pm
+++ b/modules/database/src/tools/DBD/Breaktable.pm
@@ -11,6 +11,8 @@ our @ISA = qw(DBD::Base);
 use Carp;
 use strict;
 
+my $warned;
+
 sub init {
     my ($this, $name) = @_;
     $this->SUPER::init($name, "breakpoint table");