From ea7de2b594db6f4c708c5543aa6c2bc07544d277 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 20 Apr 2014 14:05:50 +0000
Subject: [PATCH] configdb - code cleanup

git-svn-id: https://svn.fhem.de/fhem/trunk@5585 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_configdb.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm
index 880751f60..c2f8381c4 100644
--- a/fhem/FHEM/98_configdb.pm
+++ b/fhem/FHEM/98_configdb.pm
@@ -183,7 +183,7 @@ sub CommandConfigdb($$) {
 		when ('filedelete') {
 			return "\n Syntax: configdb fileexport <pathToFile>" if @a != 2;
 			my $filename;
-			if(substr($param1,0,1) eq '/') {
+			if($param1 =~ m,^[./],) {
 				$filename = $param1;
 			} else {
 				$filename  = $attr{global}{modpath};
@@ -195,7 +195,7 @@ sub CommandConfigdb($$) {
 		when ('fileexport') {
 			return "\n Syntax: configdb fileexport <pathToFile>" if @a != 2;
 			my $filename;
-			if(substr($param1,0,1) eq '/') {
+			if($param1 =~ m,^[./],) {
 				$filename = $param1;
 			} else {
 				$filename  = $attr{global}{modpath};
@@ -207,7 +207,7 @@ sub CommandConfigdb($$) {
 		when ('fileimport') {
 			return "\n Syntax: configdb fileimport <pathToFile>" if @a != 2;
 			my $filename;
-			if(substr($param1,0,1) eq '/') {
+			if($param1 =~ m,^[./],) {
 				$filename = $param1;
 			} else {
 				$filename  = $attr{global}{modpath};