Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37845850
en ru br
ALT Linux repos
S:1.0.12-alt1
5.0: 1.0.11-alt1
4.1: 1.0.11-alt1
4.0: 1.0.11-alt1

Group :: Development/Other
RPM: codeviz

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: codeviz-1.0.12-fix_brackets_for_perl5.26.patch
Download


--- 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
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin