From: ivan <ivan>
Date: Tue, 16 Jul 2002 03:56:16 +0000 (+0000)
Subject: better error handling
X-Git-Tag: freeside_1_4_0~9
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=0d0bee036173beccb207f11712830f083b4eb2bc;p=freeside.git

better error handling
---

diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index fbf58bd60..0f478d254 100644
--- a/FS/FS/part_export/infostreet.pm
+++ b/FS/FS/part_export/infostreet.pm
@@ -164,6 +164,7 @@ sub infostreet_command { #subroutine, not method
   }
 
   eval "use Frontier::Client;";
+  die $@ if $@;
 
   eval 'sub Frontier::RPC2::String::repr {
     my $self = shift
@@ -171,6 +172,7 @@ sub infostreet_command { #subroutine, not method
     $value =~ s/([&<>\"])/$Frontier::RPC2::char_entities{$1}/ge;
     $value;
   }';
+  die $@ if $@;
 
   my $conn = Frontier::Client->new( url => $url );
   my $key_result = $conn->call( 'authenticate', $username, $password, $groupID);