Revision 24ea4061
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
scripts/locales.pl | ||
---|---|---|
444 | 444 |
} |
445 | 445 |
} |
446 | 446 |
|
447 |
my ($found) = / (?: locale->text | \b t8 ) \b .*? \(/x; |
|
448 |
$postmatch = "$'"; |
|
447 |
my $found; |
|
448 |
if (/ (?: locale->text | \b t8 ) \b .*? \(/x) { |
|
449 |
$found = 1; |
|
450 |
$postmatch = "$'"; |
|
451 |
} |
|
449 | 452 |
|
450 | 453 |
if ($found) { |
451 | 454 |
my $string; |
Auch abrufbar als: Unified diff
Rekursion in scripts/locales.pl verhindern.
Problem war ein leakendes $', wenn ein Regex fehlgeschlagen ist.