From bfbdf00ef49cb3376bed3ca5ece090bdf3cc9a47 Mon Sep 17 00:00:00 2001
From: ntruchsess <>
Date: Mon, 8 Jul 2013 12:50:34 +0000
Subject: [PATCH] fix Init_Pin_Client if Firmata is not connected (yet)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3394 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_FRM.pm | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/FHEM/10_FRM.pm b/FHEM/10_FRM.pm
index a13f0a0c1..2e392d739 100755
--- a/FHEM/10_FRM.pm
+++ b/FHEM/10_FRM.pm
@@ -373,19 +373,15 @@ FRM_Init_Pin_Client($$$) {
   	return $u unless defined $args and int(@$args) > 0;
  	my $pin = @$args[0];
   	$hash->{PIN} = $pin;
-	if (defined $hash->{IODev} and defined $hash->{IODev}->{FirmataDevice}) {
-		eval {
-			$hash->{IODev}->{FirmataDevice}->pin_mode($pin,$mode);
-		};
-		if ($@) {
-			main::Log(2,"FRM_Init error setting pin_mode: ".$@);
-			FRM_Client_Unassign($hash);
-			return "error setting ".$hash->{NAME}." pin_mode for pin ".$pin;
-		}
-		return undef;
+  eval {
+    FRM_Client_FirmataDevice($hash)->pin_mode($pin,$mode);
+	};
+	if ($@) {
+		main::Log(2,"FRM_Init error setting pin_mode: ".$@);
+		#FRM_Client_Unassign($hash);
+		return "error setting ".$hash->{NAME}." pin_mode for pin ".$pin;
 	}
-	return "no IODev set" unless defined $hash->{IODev};
-	return "no FirmataDevice assigned to ".$hash->{IODev}->{NAME};  	
+	return undef;
 }
 
 sub