fix sortDevices and <...> headings (http://forum.fhem.de/index.php/topic,14608.msg172326.html#msg172326)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5991 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/33_readingsGroup.pm

@@ -131,6 +131,8 @@ readingsGroup_updateDevices($)
 
   if( AttrVal( $hash->{NAME}, "sortDevices", 0 ) == 1 ) {
     @devices = sort { my $aa = @{$a}[0]; my $bb =  @{$b}[0];
+                      $aa = "#" if( $aa =~ m/^</ );
+                      $bb = "#" if( $bb =~ m/^</ );
                       lc(AttrVal($aa,"sortby",AttrVal($aa,"alias",$aa))) cmp
                       lc(AttrVal($bb,"sortby",AttrVal($bb,"alias",$bb))) } @devices;
   }