@sven s: warum warten? Patch aus Kundenprojekt, der einige Felder in customer auf...

[mfinanz.git] / scripts / locales.pl

diff --git a/scripts/locales.pl b/scripts/locales.pl
index 21f424555ebb7b6e0e431d7da7b493b257d0ea5c..fa787a24bfc232d10d70d4630d64511392645712 100755 (executable)
--- a/scripts/locales.pl
+++ b/scripts/locales.pl
@@ -161,7 +161,7 @@ EOL
 EOL
   $LOST_HEADER  = <<EOL;
 # The last 50 text strings, that have been removed.
-# This file is auto-generated by locales.pl. Do not edit it.
+# This file has been auto-generated by locales.pl. Please don't edit!
 EOL
 }
 
@@ -576,7 +576,7 @@ sub strip_base {
 
 sub _single_quote {
   my $val = shift;
-  $val =~ s/('|\\$)/\\$1/g;
+  $val =~ s/(\'|\\$)/\\$1/g;
   return  "'" . $val .  "'";
 }
 
@@ -601,7 +601,9 @@ sub generate_file {
 
   open my $fh, '>', $file or die "$! : $file";
 
-  print $fh "#!/usr/bin/perl\n# -*- coding: $charset; -*-\n# vim: fenc=$charset\n\n";
+  my $emacs_charset = lc $charset;
+
+  print $fh "#!/usr/bin/perl\n# -*- coding: $emacs_charset; -*-\n# vim: fenc=$charset\n\n";
   print $fh $header, "\n" if $header;
   print $fh "$data_name = $delim[0]\n" if $data_name;