diff options
| -rw-r--r-- | FS/FS/part_export/infostreet.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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); |