dtdinstaller/bin/dtd_installer.pl
branchRCL_3
changeset 1 882d065be445
parent 0 05da4621cfb2
child 4 0cbaad18b0bd
--- a/dtdinstaller/bin/dtd_installer.pl	Tue Feb 02 00:15:44 2010 +0200
+++ b/dtdinstaller/bin/dtd_installer.pl	Fri Feb 19 22:43:13 2010 +0200
@@ -324,7 +324,7 @@
 		    	my $temp=$1; # lang code	
 		    	my $temp2=$3;	# file name
 		    	if ((lc $2) eq "sources") {
-		    		$out_file = "${out_path}\\$2\\$3";
+		    		$out_file = "${out_path}\\$3";
 		    	} else {
 		    		if (length($temp) > 4) { #skip extra files
 		    			next;
@@ -457,7 +457,7 @@
 	$file_name =~ s/\//\\/g;    #Change / marks to \
 	chomp $file_name;
 	next if ( -d $file_name ); # Skip directories
-	next if ((!($file_name =~ /o0000/i)) && (!($file_name =~ /\/sources\//i))); # Skip other then resource and source files
+	next if ((!($file_name =~ /o0000/i)) && (!($file_name =~ /\\sources\\/i))); # Skip other then resource and source files
 	push @find_files, $file_name;
 }