Regex FTW!
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 27 Jan 2010 14:00:02 +0000 (15:00 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Mon, 12 Jul 2010 12:05:26 +0000 (14:05 +0200)
locale/de/locales.pl

index 324e508..efe2659 100755 (executable)
@@ -531,22 +531,9 @@ sub scanmenu {
 }
 
 sub unescape_template_string {
-  my $in      = shift;
-  my $out     = '';
-  my $escaped = 0;
-
-  foreach my $char (split m//, $in) {
-    if ($escaped) {
-      $out     .= $char;
-      $escaped  = 0;
-    } elsif ($char eq '\\') {
-      $escaped  = 1;
-    } else {
-      $out     .= $char;
-    }
-  }
-
-  return $out;
+  my $in =  "$_[0]";
+  $in    =~ s/\\(.)/$1/g;
+  return $in;
 }
 
 sub scanhtmlfile {