From 0d0bee036173beccb207f11712830f083b4eb2bc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 16 Jul 2002 03:56:16 +0000
Subject: [PATCH] better error handling

---
 FS/FS/part_export/infostreet.pm | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
2.11.0