From 83c0d812a51a50eac23a9b413acf0ecbc5f90c8e Mon Sep 17 00:00:00 2001
From: ntruchsess <ntruchsess@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 2 Apr 2013 10:32:18 +0000
Subject: [PATCH] unassign FRM-device if pin_mode fails (for unsupported
 pin_modes)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3021 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_FRM.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_FRM.pm b/fhem/FHEM/10_FRM.pm
index 2cf09a6e7..ec1a47813 100755
--- a/fhem/FHEM/10_FRM.pm
+++ b/fhem/FHEM/10_FRM.pm
@@ -358,7 +358,11 @@ FRM_Init_Pin_Client($$$) {
 		eval {
 			$hash->{IODev}->{FirmataDevice}->pin_mode($pin,$mode);
 		};
-		return "error setting Firmata pin_mode for ".$hash->{NAME}.": ".$@ if ($@);
+		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;
 	}
 	return "no IODev set" unless defined $hash->{IODev};