[freeside-commits] freeside/FS/FS bill_batch.pm,1.1,1.1.4.1

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv23757

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	bill_batch.pm 
Log Message:
better error message

Index: bill_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/bill_batch.pm,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -w -d -r1.1 -r1.1.4.1
--- bill_batch.pm	8 Jun 2010 22:25:00 -0000	1.1
+++ bill_batch.pm	20 Jan 2011 01:24:36 -0000	1.1.4.1
@@ -54,7 +54,10 @@
 
 sub print_pdf {
   eval 'use CAM::PDF';
-  warn "Failed to load CAM::PDF: '$@'\n" if $@;
+  if ( $@ ) {
+    die "CAM::PDF not installed\n" if $@ =~ /^Can't locate/;
+    die "Failed to load CAM::PDF: '$@'\n";
+  }
 
   my $self = shift;
   my $job = shift;