From: ivan <ivan>
Date: Fri, 10 Mar 2006 22:28:17 +0000 (+0000)
Subject: want to know who *called* this without the required second arg
X-Git-Tag: BEFORE_FINAL_MASONIZE~199
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b29780b983dd91fb679e8d01b91902b0ce186e9f

want to know who *called* this without the required second arg
---

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index 49e3fbf7e..dc45e0188 100644
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -131,6 +131,7 @@ package FS::UI::Web::JSRPC;
 
 use strict;
 use vars qw($DEBUG);
+use Carp;
 use Storable qw(nfreeze);
 use MIME::Base64;
 use JSON;
@@ -150,7 +151,7 @@ sub new {
 
         bless $self, $class;
 
-        die "CGI object required as second argument" unless $self->{'cgi'};
+        croak "CGI object required as second argument" unless $self->{'cgi'};
 
         return $self;
 }