[freeside-commits] freeside/FS/FS/UI Web.pm,1.14,1.15

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail:/tmp/cvs-serv24495

Modified Files:
	Web.pm 
Log Message:
want to know who *called* this without the required second arg

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Web.pm	17 Nov 2005 12:53:29 -0000	1.14
+++ Web.pm	10 Mar 2006 22:28:17 -0000	1.15
@@ -131,6 +131,7 @@
 
 use strict;
 use vars qw($DEBUG);
+use Carp;
 use Storable qw(nfreeze);
 use MIME::Base64;
 use JSON;
@@ -150,7 +151,7 @@
 
         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;
 }