Репозитории ALT
S: | 1.0.12-alt1 |
5.1: | 1.0.11-alt1 |
4.1: | 1.0.11-alt1 |
4.0: | 1.0.11-alt1 |
Группа :: Разработка/Прочее
Пакет: codeviz
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: codeviz-1.0.12-fix_brackets_for_perl5.26.patch
Скачать
Скачать
--- a/codeviz/lib/CodeViz/CollectCXref.pm
+++ b/codeviz/lib/CodeViz/CollectCXref.pm
@@ -205,7 +205,7 @@ sub readcdepn {
while (!eof(CDEPFILE)) {
$line = <CDEPFILE>;
# Read a function declaration line
- if ($line =~ /^F {(.*)} {(.+):(.+)}/) {
+ if ($line =~ /^F \{(.*)} \{(.+):(.+)}/) {
my $fdecl = $1;
$file = $f;
$file =~ s/\.cdepn//;
@@ -220,7 +220,7 @@ sub readcdepn {
}
# Read a function call line
- if ($line =~ /^C {(.*)} {(.+):(.+)}\s+(.+)/) {
+ if ($line =~ /^C \{(.*)} \{(.+):(.+)}\s+(.+)/) {
$caller = parseDeclaration($1);
$callee = parseDeclaration($4);
$line = $3;
--- a/codeviz/lib/CodeViz/CollectCppDepn.pm
+++ b/codeviz/lib/CodeViz/CollectCppDepn.pm
@@ -136,14 +136,14 @@ sub analyse_cdepn {
# has been included from an external file and
# should be ignored, otherwise record it as a function
# declaration
- if (/^F {(.*)} {(.+):(.+)}/) {
+ if (/^F \{(.*)} \{(.+):(.+)}/) {
my $loc="$2:$3";
$f1 = parseDeclaration($1);
#if ($cpp) { $f1 =~ s/<.*>//g; }
$F{$f1} = "$2:$3";
$M{$f1}=3;
- } elsif (/^C {(.*)} {(.+):(.+)}\s+(.+)/) {
+ } elsif (/^C \{(.*)} \{(.+):(.+)}\s+(.+)/) {
my $loc = "$2:$3";
# Lines beginning with C are calling a function
# The key is hashed as "caller:callee" and the