Репозитории ALT
S: | 0.8.1-alt8 |
5.1: | 0.8.1-alt2 |
4.1: | 0.8.0-alt4 |
4.0: | 0.8.0-alt3 |
Группа :: Система/Библиотеки
Пакет: clanlib0.8
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: clanlib-0.8.1-alt-perl.patch
Скачать
Скачать
diff --git a/ClanLib/Documentation/Reference/pce2.in b/ClanLib/Documentation/Reference/pce2.in
index c8fc8a8..7770fdf 100644
--- a/ClanLib/Documentation/Reference/pce2.in
+++ b/ClanLib/Documentation/Reference/pce2.in
@@ -667,10 +667,10 @@ sub procNamespace {
sub procClass {
my($env,$block,$com)=@_;
- if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*){/) {
+ if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*)\{/) {
$env=Class::new($env,$2,$com,$1,$3);
}
- elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*{/) {
+ elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*\{/) {
$env=Class::new($env,$2,$com,$1);
}
elsif ($block=~/^\s*(union|struct)\s*{/) {
@@ -1105,7 +1105,7 @@ sub byfullname { $a->{fullname} cmp $b->{fullname}; }
sub alter {
my $self=shift;
my $str=shift;
- $str=~s/\${/\$\$self{/g;
+ $str=~s/\$\{/\$\$self\{/g;
$str=~s/\\n/\n/g;
$str=~s/"/\\"/g;
eval("\$str=\"$str\";");