small fix for previous commit :"fixes to creation of filename/path fr…

…om format"

gmusicbrowser.pl

@@ -3994,7 +3994,7 @@ sub filenamefromformat
 sub pathfromformat
 {	my ($ID,$format,$basefolder,$icase)=@_;
 	my $path= defined $basefolder.SLASH ? $basefolder : '';
-	$path.=$1 if $format=~s#^([^$%]*$QSLASH)##;		# move constant part of format in path
+	$path.=$1 if $format=~s#^([^\$%]*$QSLASH)##;		# move constant part of format in path
 	$path= Songs::Get($ID,'path').SLASH.$path if $path!~m#^~?$QSLASH#o; # use song's path as base for relative paths
 	$path=~s#^~($QSLASH)#$ENV{HOME}$1#o;				# replace leading ~/ by homedir
 	$path=~s#$QSLASH+\.?$QSLASH+#SLASH#goe; 			# remove repeated slashes and /./