Dump a call trace if something calls FS::h_Common::sql_h_search without END_TIMESTAMP.

1 files changed, 5 insertions, 0 deletions

diff --git a/FS/FS/h_Common.pm b/FS/FS/h_Common.pm
index 52af42b..e575cff 100644
--- a/FS/FS/h_Common.pm
+++ b/FS/FS/h_Common.pm
@@ -2,6 +2,7 @@ package FS::h_Common;
 
 use strict;
 use FS::Record qw(dbdef);
+use Carp qw(confess);
 
 =head1 NAME
 
@@ -42,6 +43,10 @@ sub sql_h_search {
   my $pkey = dbdef->table($table)->primary_key
     or die "can't (yet) search history table $table without a primary key";
 
+  unless ($end) {
+    confess 'Called sql_h_search without END_TIMESTAMP';
+  }
+
   my $notcancelled = '';
   if ( scalar(@_) && $_[0] ) {
     $notcancelled = "AND 0 = ( SELECT COUNT(*) FROM $table as notdel