Kaydet (Commit) d499a8fe authored tarafından Ingo Schmidt's avatar Ingo Schmidt

native299 #i110901# improving mechanism for DEFAULT_TO_ENGLISH_FOR_PACKING

üst 3d1f829e
...@@ -50,18 +50,26 @@ sub put_language_into_name ...@@ -50,18 +50,26 @@ sub put_language_into_name
my $filename = ""; my $filename = "";
my $extension = ""; my $extension = "";
if ( $oldname =~ /^\s*(.*)(\..*?)\s*$/ ) # files with extension if ( $oldname =~ /en-US/ ) # files, that contain the language in the file name
{ {
$filename = $1; $newname = $oldname;
$extension = $2; $newname =~ s/en-US/$onelanguage/;
} }
else else # files, that do not contain the language in the file name
{ {
$filename = $oldname; if ( $oldname =~ /^\s*(.*)(\..*?)\s*$/ ) # files with extension
$extension = ""; {
} $filename = $1;
$extension = $2;
}
else
{
$filename = $oldname;
$extension = "";
}
$newname = $1 . "_" . $onelanguage . $2; $newname = $1 . "_" . $onelanguage . $2;
}
return $newname; return $newname;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment