From 3fee5d65aa1c555c53a991e9a9f9610b422670fe Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Wed, 30 Mar 2005 21:40:06 +0000
Subject: [PATCH] Dump a call trace if something calls
 FS::h_Common::sql_h_search without END_TIMESTAMP.

---
 FS/FS/h_Common.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/FS/FS/h_Common.pm b/FS/FS/h_Common.pm
index 52af42bfc..e575cffdb 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
-- 
2.11.0