Revision 905deb54
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| locale/de/locales.pl | ||
|---|---|---|
| 640 | 640 |
} |
| 641 | 641 |
|
| 642 | 642 |
sub strip_base {
|
| 643 |
$_[0] =~ s|^../../||; |
|
| 644 |
$_[0] =~ s|templates/webpages/||; |
|
| 643 |
my $s = "$_[0]"; # Create a copy of the string. |
|
| 645 | 644 |
|
| 646 |
return $_[0]; |
|
| 645 |
$s =~ s|^../../||; |
|
| 646 |
$s =~ s|templates/webpages/||; |
|
| 647 |
|
|
| 648 |
return $s; |
|
| 647 | 649 |
} |
Auch abrufbar als: Unified diff
Die Funktion strip_base darf nur auf einer Kopie des Strings arbeiten, nicht aber auf dem Alias, das noch in @_ steht.